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Abstract 

This report describes my successful project to build a working reproduction of the 1964 
prototype for the Block I Apollo Guidance Computer. The AGC is the flight computer for the 
Apollo moon landings, and is the world's first integrated circuit computer. 

I built it in my basement. It took me 4 years. 

If you like, you can build one too. It will take you less time, and yours will be better than 
mine. 

I documented my project in 9 separate .pdf files: 

Part 1 Overview: Introduces the project. 

Part 2 CTL Module: Design and construction of the control module. 

Part 3 PROC Module: Design and construction of the processing (CPU) module. 

Part 4 MEM Module: Design and construction of the memory module. 

Part 5 I O Module: Design and construction of the display/ keyboard ( DSKY) module. 

Part 6 Assembler: A cross-assembler for AGC software development. 

Part 7 C++ Simulator: A low-level simulator that runs assembled AGC code. 

Part 8 Flight Software: My translation of portions of the COLOSSUS 249 flight 

software. 

Part 9 Test & Checkout: A suite of test programs in AGC assembly language. 



Overview 

I wanted genuine Block I flight software for my AGC, but couldn't find any. I eventually 
wound up recreating Block I software from Block II code listings that were available. Major 
portions of Block II were originally coded as Block I anyway, so the conversion back was not 
too difficult. About 95% of the instructions were already Block I, so I just had to translate 
the remaining 5% into their Block I equivalents. 



I downloaded a partial listing of the COLOSSUS 249 flight software for the Block 1 1 Apollo 
Command Module AGC from a M.I .T website in late 2001. The listing (at that time) 

comprised first half 

of the flight 2fl W/,il'\ 

software load. The 
second half was 
missing. 

The part that was 
present contained 
eraseable memory 
declarations, and 
PINBALL, the AGC 
user interface. The 
missing portion 
contained (among 
other things) the 
EXEC and 

WAITLIST pieces of 
the operating 
system, bank 
register calling 
routines, and math 
libraries. 

The downloaded 

document was a .pdf file containing 300 or so fuzzy digital images of assembler listing. I 
printed it, and then retyped the erasable memory and PINBALL portions into a text file, 
marking off each reentered line in the original listing with a highlighter. 




I coded my own versions of the EXEC, WAITLIST, BANKCALL, and other missing routines 
used by PI N BALL. The R-393 document from M.I .T. provided some guidance. 

Over a 6 month period, I was able to get all regular verbs and generic normal nouns 
working. These are listed near the top of my assembler listing. 



I added additional comments to portions of code taken from COLOSSUS. The page numbers 
in my comments refer to pages in the COLOSSUS 249 assembler listing. 



Original COLOSSUS 249 Assembler Code 



For comparison purposes, here's a page of the original AGC assembly code, downloaded 
from the M.I .T. website. This is a tiny portion of the PI NBALL code. I marked each line with 
a yellow highlighter as I reentered it into a text file. 
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My COLOSSUS Assembler Code 

Here's the exact same portion of code, assembled for my Block I AGC. I f you compare the 
two listings, you'll see that I defined some different assembler directives for allocating 
storage (DS % instead of OCT) and that my code is sitting in a different bank (5 vs. 40) at a 
different offset than the original Block II code. 
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- case (was DCS, DXCH in Block II) 



decrement DSPCOUNT 



dec 18 
dec 16 
dec 10 



2EXP14/10EXP5 = .16384 DEC 



GETINREL 

Gets proper data register relative address for current C (DSPCOUNT) and 

puts into INREL: +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 313. 
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Scenarios 

Here's how some AGC verbs and nouns are used to do commonplace operations. The 
overview (part 1) and simulator (part 7) documents contain actual examples of some of 
these operations in the simulated and hardware AGCs. 

Display elapsed time from the AGC clock: 

<VERB> <0> <6> <NOUN> <3> <6> <ENTER> 

Start a monitor program to continuously display the AGC clock: 
<VERB> <1> <6> <NOUN> <3> <6> <ENTER> 

Terminate a monitor program: 

<VERB> <3> <4> <ENTER> 

Test DSJT display lights: 

<VERB> <3> <5> <ENTER> 

All DSKY lamps and display segments illuminate for 5 sec. after 5 sec, the DSKY 

lamps extinguish. 

Load component 1 for dataset at octal address 50 with octal 123: 
<VERB> <2> <1> <NOUN> <0> <1> <ENTER> 
Verb/noun display flashes: waiting for address. 
<5> <0> <ENTER> 

Verb/noun display flash continues: waiting for data. 
<1> <2> <3> <ENTER> 
Octal word from Rl is loaded at address 50. 

Display component 1 of dataset at octal address 50: 

<VERB> <0> <1> <NOUN> <0> <1> <ENTER> 
Verb/noun display flashes: waiting for address. 
<5> <0> <ENTER> 
Octal word from address 50 is displayed in Rl. 

Display component 1 of dataset incrementing from 50: 

<VERB> <0> <1> <NOUN> <0> <1> <ENTER> 

Verb/noun display flashes: waiting for address. 

<5> <0> <ENTER> 

Octal word from address 50 is displayed in Rl. 

<NOUN> <1> <5> <ENTER> 

Octal word from address 51 is displayed in Rl, address in R3. 

<ENTER> 

Octal word from address 52 is displayed in Rl, address in R3. 



Load 3 component dataset at octal address 50 with octal values: 123, 456, 701: 
<VERB> <2> <5> <NOUN> <0> <1> <ENTER> 
Verb/noun display flashes: waiting for address. 
<5> <0> <ENTER> 

Verb/noun display flash continues: waiting for data. 
<1> <2> <3> <ENTER> 
<4> <5> <6> <ENTER> 
<7> <0> <1> <ENTER> 



Octal word from Rl is loaded at address 50; Octal word from R2 is loaded at address 
51, Octal word from R3 is loaded at address 52. 

Display 3 component dataset beginning at address 50: 

<VERB> <0> <5> <NOUN> <0> <1> <ENTER> 

Verb/noun display flashes: waiting for address. 

<5> <0> <ENTER> 

Octal word from address 50 is displayed in Rl; Octal word from address 51 is 

displayed in R2; Octal word from address 52 is displayed in R3. 

Change major mode to POO: 

<VERB> <3> <7> <ENTER> 

Verb/noun display flashes: waiting for major mode 

<0> <0> <ENTER> 



VERBS and NOUNS 

COLOSSUS REGULAR VERBS (00-39 decimal) 

This is adapted from the Apollo 204 accident report posted on multiple 
web sites by Richard F. Drushel. The information has been changed as 
necessary to be consistent with usage in COLOSSUS 249. 



Verb 
Code 



01 



02 



03 



04 



05 



06 



01 



08 
09 
10 
11 

12 

13 

14 

15 



Description 
Display octal comp 1 in Rl 



Display octal comp 2 in R2 



Display octal comp 3 in R3 



Display octal comp 1,2 
in R1,R2 

Display octal comp 1,2,3 
in R1,R2,R3 

Display decimal in Rl or 
R1,R2 or R1,R2,R3 



Display DP decimal in R1,R2 



(Spare) 
(Spare) 
(Spare) 
Monitor octal comp 1 in Rl 

Monitor octal comp 2 in R2 

Monitor octal comp 3 in R3 



Monitor octal comp 1,2 
in R1,R2 



Monitor octal comp 1,2,3 
in R1,R2,R3 



Remarks 

Performs octal display of data on 
REGISTER 1 . 

Performs octal display of data on 
REGISTER 1 . 

Performs octal display of data on 
REGISTER 1. 

Performs octal display of data on 
REGISTER 1 and REGISTER 2 

Performs octal display of data on 
REGISTER 1, REGISTER 2, and REGISTER 3. 

Performs decimal display of data on 
appropriate registers. The scale 
factors, types of scale factor 
routines, and component information 
are stored within the machine for each 
noun which it is required to display 
in decimal . 

Performs a double precision decimal 
display of data on REGISTER 1 and 
REGISTER 2. It does no scale 
factoring. It merely performs a 10- 
character, fractional decimal 
conversion of two consecutive, erasable 
registers, using REGISTER 1 and 
REGISTER 2. The sign is placed in the 
REGISTER 1 sign position with the 
REGISTER 2 sign position remaining 
blank. It cannot be used with mixed 
nouns. Its intended use is primarily 
with "machine address to be specified" 
nouns . 



Performs octal display of updated data 
every 1/2 second on REGISTER 1 . 

Performs octal display of updated data 
every 1/2 second on REGISTER 1 . 

Performs octal display of updated data 
every 1/2 second on REGISTER 1 . 

Performs octal display of updated data 
every 1/2 second on REGISTER 1 and 
REGISTER 2. 

Performs octal display of updated data 
every 1/2 second on REGISTER 1, 
REGISTER 2, and REGISTER 3. 



16 



n 



Monitor decimal in Rl or 
R1,R2, or R1,R2,R3 



Monitor DP decimal in R1,R2 



18 
19 
20 
21 



22 



23 



24 



25 



26 

21 



28 
29 
30 



(Spare) 
(Spare) 
(Spare) 
Load component 1 into Rl 



Load component 2 into R2 



Load component 3 into R3 



Load component 1,2 into 
R1.R2 



Load component 1,2,3 into 
R1,R2,R3 



(Spare) 
Display fixed memory 



(Spare) 

(Spare) 

Request EXECUTIVE 
(Used only during ground 
checkout . ) 



31 



Request WAITLIST 



Performs decimal display of updated 
data every 1/2 second on appropriate 
registers . 

Performs double precision display of 
decimal data on REGISTER 1 and 
REGISTER 2. No scale factoring is 
performed. Provides 10-character, 
fractional decimal conversion of two 
consecutive erasable registers. The 
sign is placed in the sign— bit 
position of REGISTER 1 . REGISTER 2 
sign bit is blank. 



Performs data loading. Octal 
quantities are unsigned. Decimal 
quantities are preceded by + or - 
sign. Data is displayed on REGISTER 
1. 

Performs data loading. Octal 
quantities are unsigned. Decimal 
quantities are preceded by + or — 
sign. Data is displayed on REGISTER 
2. 

Performs data loading. Octal 
quantities are unsigned. Decimal 
quantities are preceded by + or — 
sign. Data is displayed on REGISTER 
3. 

Performs data loading. Octal 
quantities are unsigned. Decimal 
quantities are preceded by + or — 
sign. Data is displayed on REGISTER 
1 and REGISTER 2. 

Performs data loading. Octal 
quantities are unsigned. Decimal 
quantities are preceded by + or — 
sign. Data is displayed on REGISTER 
1, REGISTER 2, and REGISTER 3. 



This verb is included to permit 
displaying the contents of fixed 
memory in any bank. Its intended use 
is for checking program ropes and the 
BANK positions of program ropes. 



Enters request to executive routine 
for any machine address with priority 
involved. This verb assumes that the 
desired priority has been loaded into 
bits 10-14 of the prio/delay register 

(noun 26) . This verb is used with the 
noun, "machine address to be 
specified" . The complete address of 
the desired location is then keyed in. 

(Refer to "Machine address to be 
specified" in paragraph on Verb/Noun 
Formats. ) 

Enters request to "waitlist routine" 



32 
33 



34 



35 
36 



37 



(Used only during ground 
checkout . ) 



Recycle 

Proceed (without data) 



Terminate 



Test lights 
Request fresh start 

Change program (major mode) 



for any machine address with delay 
involved. This verb assumes that the 
desired number of 10-millisecond units 
of delay has been loaded into the low 
order bits of the prio/delay register 
(noun 26) . This verb is used with the 
"machine address to be specified" noun. 
The complete address of the desired 
location is then keyed in. (Refer to 
"Machine address to be specified" in 
paragraph on Verb/Noun Formats.) 



Informs routine requesting data that 
the operator chooses not to load 
fresh data, but wishes the routine to 
continue as best it can with old data. 
Final decision for what action should 
be taken is left to the requesting 
routine . 

Informs routine requesting data to be 
loaded that the operator chooses not 
to load fresh data and wishes the 
routine to terminate. Final decision 
for what action should be taken is 
left to the requesting routine. If 
monitor is on, it is turned off. 



Initializes the program control 
software and the keyboard and display 
system program. 

Change to new major mode. (Refer to 
"Change major mode " in paragraph on 
Verb/Noun Formats.) 



COLOSSUS EXTENDED VERBS (40-99 decimal) 

Not implemented. Use of these verbs triggers the 'check fail' indicator. 

COLOSSUS NORMAL NOUNS (00-39 decimal) 

This is adapted from the Apollo 204 accident report posted on multiple 
web sites by Richard F. Drushel. The information has been changed as 
necessary to be consistent with usage in COLOSSUS 249. 



Noun 
Code 



01 



02 



03 



Description 

Specify machine address (frac) 

Specify machine address (whole) 

Specify machine address (degree) 



Scale/Units 

.XXXXX FRAC 
.XXXXX FRAC 
.XXXXX FRAC 

XXXXX INTEGER 
XXXXX INTEGER 
XXXXX INTEGER 

XXX. XX DEG 
XXX. XX DEG 
XXX. XX DEG 



04 


(Spare) 


05 


(Spare) 


06 


(Spare) 


07 


(Spare) 


08 


(Spare) 


09 


Alarm codes 



37 



10 


(Spare) 


11 


(Spare) 


12 


(Spare) 


13 


(Spare) 


14 


(Spare) 


15 


Increment address 


16 


(Spare) 


17 


(Spare) 


18 


(Spare) 


19 


(Spare) 


20 


(Spare) 


21 


(Spare) 


22 


(Spare) 


23 


(Spare) 


24 


(Spare) 


25 


(Spare) 


26 


Prio/delay, addres 


27 


(Spare) 


28 


(Spare) 


29 


(Spare) 


30 


(Spare) 


31 


(Spare) 


32 


(Spare) 


33 


(Spare) 


34 


(Spare) 


35 


(Spare) 


36 


Time of CMC clock: 




REGISTER 1 




REGISTER 2 




REGISTER 3 



(Spare) 



OCT 
OCT 
OCT 



OCT 



OCT (prio/delay) 
OCT (14-bit CADR) 
(not used) 



OOXXX. hours 
OOOXX. minutes 
OXX.XX seconds 



38 
39 



(Spare) 
(Spare) 



COLOSSUS MIXED NOUNS (40-99 decimal) 

Not implemented. 



Flight software assembler listing 



Block I Apollo Guidance Computer (AGC4) assembler version 1 . 6 for EPROM 

First pass : generate symbol table . 
Second pass : generate object code . 



AGC (file : age . asm) 

Version : 1.0 

Author : John Pultorak 

Date: 6/7/2002 

PURPOSE: 

AGC Block I demonstration . Incl udes most of the AGC operating system : 

WAITLIST, EXEC, PINBALL (DSKY routines} , NOUN tables, VERB tables, 

bank inter communi cation routines , the KEY , T3 , and T4 interrupt handlers , 

and some dual precision (DP) math routines . 

The interpreter is not currently implemented . 

Where available , the source is from the Apollo 8 command module computer (CMC) 
load (called COLOSSUS) . In cases where COLOSSUS source is not available, 
functionally equivalent code was constructed using COLOSSUS calling and ret urn 
parameters and according to specifi cations in the technical reports given below . 

OPERATION: 
TBD. 

ERRATA: 

— Adapted for the AGC4R assembler . The assembler directives and syntax 
differ somewhat from the original AGC assembler . 

— some of the original source was missing from the COLOSSUS listing and 
had to be reverse engineered . Those portions probably differ somewhat 
from the original code in implementation, but should be functionally 
identical . 

— because the COLOSSUS source is for a block II AGC, but the AGC 
implemented here is block I , about 5% of COLOSSUS had to be translated 
to equivalent block I code . 

SOURCES : 

Information on the Block I architecture : instruction set , instruction 
sequences , registers , register transfers , control pulses , memory and 
memory addressing, I/O assignments , interrupts , and in vol untary counters 
was obtained from : 

A . Hopkins , R . Alonso, and H . Blair-Smi th, "Logical Description 

for the Apollo Guidance Computer (AGC4) " , R-393, 

MIT Instrumentation Laboratory, Cambridge , MA, Mar . 1 9 63 . 

Supplementary AGC hardware information was obtained from : 

R . Alonso, J . H . Laning, Jr . and H . Blair-Smi th, "Preliminary 

MOD 3C Programmer's Manual", E-1077, MIT Instrumentation 
Laboratory, Cambridge , MA, Nov. 1961 . 

B . I . Savage and A . Drake , "AGC 4 Basi c Training Manual , Vol ume I " , 

E—2052, MIT Instrumentation Laboratory, Cambridge , 
MA, Jan. 1967 . 

E. C. Hall, "MIT's Role in Project Apollo, Volume III, Computer 
Subsystem" , R-700, MIT Charles Stark Draper Laboratory, 
Cambridge, MA, Aug . 1972 . 

A . Hopkins , "Guidance Computer Design , Part VI " , source unknown . 

E , C . Hall , "Journey to the Moon : The History of the Apollo 
Guidance Computer" , AIAA, Reston VA, 1996. 

AGC software information was obtained from : 

AGC Block II COLOSSUS rev 249 assembly listing, Oct 28, 1968. (A 

listing of the 1st 50% of the build . It encludes the entire 
eraseable memory, restart ini tialization, T4RUPT, and the 
entire set of DSKY routines . About 5% of instructions 
had to be converted from Block II to Block I) . 

A . I . Green and J . J . Rocchio, "Keyboard and Display System Program 
for AGC (Program Sunrise) " , E-1574 , MIT Instrumentation 
Laboratory, Cambridge , MA, Aug . 19 64. Contains detailed 
flowcharts and design materials for the DSKY software . 

A . Hopkins , R . Alonso, and H . Blair-Smi th, "Logical Description 
for the Apollo Guidance Computer (AGC4) ", R-393, 



MIT Instrumentation Laboratory, Cambridge, MA, Mar . 1 9 63 . 
Contains the software interfaces for EXEC and WAITLIST, and 
portions of the dual precision (DP) math library . 



AGC documentation (file : doc . asm) 

Version : 1.0 

Author : John Pultorak 

Date: 06/01/2002 

PURPOSE: 

Documents AGC ops source code . 



DSKY OPERATION (examples) 



ve rb /n oun ( V/N) fl ash : Wh en the ve rb and noun indicators flash 
at 1Hz, the DSKY is waiting for keyboard input . 



Display elapsed time from the AGC clock : 

<VERB> <0> <6> <NOUN> <3> <6> <ENTER> 

Te st di sp lay li gh t s 

a) <VERB> <3> <5> <ENTER> 

b) all DSKY lamps and display segments illuminate for 5 sec . 

c) after 5 sec , the DSKY lamps extinguish 

Load component 1 for dataset at octal address 5 wi th octal 123 

a) <VERB> <2> <1> <NOUN> <0> <1> <ENTER> 

b) verb/noun display flashes ; wai ting for address 

c) <5> <0> <ENTER> 

d) verb/noun display flash continues ; wai ting for data 

e) <1> <2> <3> <ENTER> 

f) octal word from Rl is loaded at address 50 , 

Display component 1 of dataset at octal address 5 : 

a) <VERB> <0> <1> <NOUN> <0> <1> <ENTER> 

b) verb/noun display flashes ; wai ting for address 

c) <5> <0> <ENTER> 

d) octal word from address 50 is displayed in Rl 

Load 3 component dataset at octal address 50 wi th octal val ues 
123, 456, 101 

a) <VERB> <2> <5> <NOUN> <0> <1> <ENTER> 

b) verb/noun display flashes ; wai ting for address 

c) <5> <0> <ENTER> 

d) verb/noun display flash continues ; wai ting for data 

e) <1> <2> <3> <ENTER> 

f) <4> <5> <6> <ENTER> 

g) <7> <0> <1> <ENTER> 

h) octal word from Rl is loaded at address 50 , 
octal word from R2 is loaded at address 51 , 
octal word from R3 is loaded at address 52 

Display 3 component dataset beginning at address 50 : 

a) <VERB> <0> <5> <NOUN> <0> <1> <ENTER> 

b) verb/noun display flashes ; wai ting for address 

c) <5> <0> <ENTER> 

d) octal word from address 5 is displayed in Rl , 
octal word from address 51 is displayed in R2 , 
octal word from address 52 is displayed in R3 



COLOSSUS REGULAR VERBS (00-39 decimal) 

Th is is a dap ted fr om the Ap olio 204 accident r ep ort posted on mult ip 1 e 
web sites by Ri chard F . Drushel . The information has been changed as 
necessary to be consistent wi th usage in COLOSSUS . 



Verb 
Code 



Description 
Display octal comp 1 in Rl 

Display octal comp 2 in R2 



Performs octal display of data on 
REGISTER 1 , 



Performs octal display of data on 



08 
09 
10 
11 



18 
19 
20 
21 



Display octal comp 3 in R3 



Display octal comp 1,2 
in R1,R2 



Display octal comp 1, 2, 3 
in Rl f R2,R3 



Display decimal in Rl or 
R1,R2 or R1 / R2,R3 



Display DP decimal in Rl , R2 



(Spare) 
(Spare) 
(Spare) 
Monitor octal comp 1 in Rl 

Monitor octal comp 2 in R2 

Monitor octal comp 3 in R3 



Monitor octal comp 1,2 
in R1,R2 



Monitor octal comp 1,2,3 
in R1,R2,R3 



Monitor decimal in Rl or 
R1,R2, or R1,R2,R3 



Monitor DP decimal in Rl , R2 



(Spare) 
(Spare) 
(Spare) 
Load c omp onent 1 into Rl 



Load c omp onent 2 into R2 



REGISTER 1 . 

Performs octal display of data on 
REGISTER 1 . 

Performs octal display of data on 
REGISTER 1 and REGISTER 2 

Performs octal display of data on 
REGISTER 1, REGISTER 2, and REGISTER 3. 

Performs decimal display of data on 
appropriate registers . The scale 
factors , types of scale factor 
routines , and component information 
are stored wi thin the machine for each 
noun which it is required to display 
in decimal . 

Performs a double precision decimal 
display of data on REGISTER 1 and 
REGISTER 2. It does no scale 
factoring . It merely performs a 10- 
character, fractional decimal 
conversion of two consecutive, erasable 
registers, using REGISTER 1 and 
REGISTER 2. The sign is placed in the 
REGISTER 1 sign position with the 
REGISTER 2 sign position remaining 
blank . It cannot be used with mixed 
nouns . Its intended use is primarily 
with "machine address to be specified " 
nouns . 



Performs octal display of updated data 
every 1/2 second on REGISTER 1 . 

Performs octal display of updated data 
every 1/2 second on REGISTER 1 . 

Performs octal display of updated data 
every 1/2 second on REGISTER 1 . 

Performs octal display of updated data 
every 1/2 second on REGISTER 1 and 
REGISTER 2. 

Performs octal display of updated data 
every 1/2 second on REGISTER 1, 
REGISTER 2, and REGISTER 3. 

Performs decimal display of updated 
data every 1 / 2 second on appropriate 
registers . 

Performs double precision display of 
decimal data on REGISTER 1 and 
REGISTER 2. No scale factoring is 
performed . Provides 1 -char act er , 
fractional decimal conversion of two 
consecutive erasable registers . The 
s i gn is placed in the si gn —b i t 
position of REGISTER 1. REGISTER 2 
s i gn bit is blank . 



Performs data loading . Octal 
quantities are unsigned . Decimal 
quantities are preceded by + or — 
sign. Data is displayed on REGISTER 



Performs data loading . Octal 
quantities are unsigned . Decimal 
quantities are preceded by + or — 
sign. Data is displayed on REGISTER 



26 

21 



28 
29 

30 



32 
33 



35 
36 



Load c omp orient 3 into R3 



Load c omp onent 1,2 into 
R1,R2 



Load c omp onent 1,2,3 into 
R1,R2,R3 



(Spare) 
Display fixed memory 



(Spare) 

(Spare) 

Request EXECUTIVE 
(Used only during ground 
checkout . ) 



Request WAITLIST 
(Used only during ground 
checkout . ) 



Recycle 

Proceed (wi thout data) 



Terminate 



Test lights 
Request fresh start 



Change program (major mode) 



Performs data loading . Octal 
quantities are unsigned . Decimal 
quantities are preceded by + or — 
sign. Data is displayed on REGISTER 
3. 

Performs data loading . Octal 
quantities are unsigned . Decimal 
quantities are preceded by + or — 
sign. Data is displayed on REGISTER 
1 and REGISTER 2. 

Performs data loading . Octal 
quantities are unsigned . Decimal 
quantities are preceded by + or — 
sign. Data is displayed on REGISTER 
1, REGISTER 2, and REGISTER 3. 



This verb is incl uded to permit 
displaying the contents of fixed 
memory in any bank . Its intended use 
is for checking program ropes and the 
BANK positions of program ropes . 



Enters re 
for any m 
involved . 
desired p 
bits 10-1 
(noun 26) 
noun, "ma 
specified 
the desir 
(Refer to 
specified 
Formats . ) 

Enters re 
for any l 
involved 
desired n 
of delay 
order bit 
(noun 26) 
"machine 
The compl 
location 
"Machine 
paragraph 



quest 
achine 
This 
riorit 
4 of t 
Thi 
chine 

Th 

ed loc 

"Mach 

" in p 



to execut 
address 
ve rb ass 
y has bee 
he prio/d 
s verb is 
address t 
e complet 
ation is 
ine addre 
aragraph 



ive routine 
with priority 
umes that the 
n loaded into 
el ay register 

used with the 
o be 

e address of 
then keyed in . 
ss to be 
on Verb/Noun 



quest to "wai 
achine addres 

This verb a 
umber of 1 0—m 
has been load 

of the prio 
This verb 
address to b 
ete address o 
is then keyed 
address to be 
on Verb/Noun 



tlist 
s wit 
ssume 
illis 
ed in 
/dela 
is us 

spec 
f the 

in . 

spec 

Form 



routine " 
h delay 
s that the 
econd units 
to the low 
y register 
ed with the 
ified " noun . 

desired 
(Refer to 
ified" in 
ats . ) 



Informs routine requesting data that 
the operator chooses not to load 
fresh data, but wishes the routine to 
continue as best it can with old data . 
Final decision for what action should 
be taken is left to the requesting 
routine . 

Informs routine requesting data to be 
loaded that the operator chooses not 
to load fresh data and wishes the 
routine to terminate . Final decision 
fo r wh at action should be taken is 
left to the requesting routine . If 
monitor is on, it is turned off . 



Ini tializes the program control 
software and the keyboard and display 
system program . 

Change to new major mode . (Refer to 
"Change major mode " in paragraph on 
Verb/Noun Formats . ) 



COLOSSUS EXTENDED VERBS (40-99 decimal) 

Not implemented . Use of these verbs triggers the ' check fail ' indicator . 



COLOSSUS NORMAL NOUNS (00-39 decimal) 

Th is is a dap ted fr om the Ap olio 204 accident r ep ort posted on multiple 
web sites by Ri chard F . Drushel . The information has been changed as 
necessary to be consistent wi th usage in COLOSSUS . 



Noun 
Code 



04 


(Spare) 


05 


(Spare) 


06 


(Spare) 


01 


(Spare) 


08 


(Spare) 


09 


Alarm codes 



Description 
Specify machine address (frac) 



Specify machine address (whole) 



Specify machine address (degree) 



10 


(Spare) 


11 


(Spare) 


12 


(Spare) 


13 


(Spare) 


14 


(Spare) 


15 


Increment address 


16 


(Spare) 


11 


(Spare) 


18 


(Spare) 


19 


(Spare) 


20 


(Spare) 


21 


(Spare) 


22 


(Spare) 


23 


(Spare) 


24 


(Spare) 


25 


(Spare) 


26 


Prio/ delay , address 



(Spare) 



Scale/Units 

. XXXXX FRAC 
. XXXXX FRAC 
. XXXXX FRAC 

XXXXX INTEGER 
XXXXX INTEGER 
XXXXX INTEGER 

XXX. XX DEG 
XXX. XX DEG 
XXX. XX DEG 



OCT 
OCT 
OCT 



OCT (prio/delay) 
OCT (14-bit CADR) 
(not used) 



28 


(Spare ) 


29 


(Spare ) 


30 


(Spare ) 


31 


(Spare) 


32 


(Spare) 


33 


(Spare) 


34 


(Spare) 


35 


(Spare) 


36 


Time of CMC clock 




REGISTER 1 




REGISTER 2 




REGISTER 3 


31 


(Spare) 


38 


(Spare) 


39 


(Spare) 



OOXXX. hours 
OOOXX. minutes 
OXX.XX seconds 



COLOSSUS MIXED NOVNS (40-99 decimal) 
Not implemented . 



AGC ADDRESS ASSIGNMENTS 

Central Registers 

000000 
000001 
000002 
000003 



A 

Q 

z 

LP 



INO 
INI 
IN2 
IN3 



OUTO 
0UT1 
0UT2 
0UT3 
0UT4 



Input Registers 

000004 
000005 
000006 
000001 

Output Registers 

000010 
000011 
000012 
000013 
000014 

Memory Bank Select 

000015 

Interrupt Control 

000016 
000011 

Editing Registers 

000020 
000021 
000022 
000023 

Interrupt Storage Area 

000024 ZRUPT 

000025 BRUPT 

000026 ARUPT 
000021 QRVPT 



RELINT 
IWHIWT 



CYR 
SR 
CYL 
SL 



accumulator 

subroutine return address 

program counter 

lower product register 



re-enable interrupts 
inhibit interrupts 



cycle right 

shift rRight 

cycle left 

shift left 



save program counter (Z) 

save B register 

save accumulator (A) 

save Q register 



000030 - 000033 HOT USED 
Involuntary Counters 

000034 OVCTR 

000035 TIME2 

000036 TIME1 

000031 TIME3 
000040 TIME4 



arithmetic over f low counter 
AGC clock (high) 
AGC clock (low) 
WAITLIST (T3) timer 
DISPLAY flM; timer 



Involuntary Counters — currently unused 
000041 - 000056 HOT USED 

Eraseable Memory 

000057 - 001777 



Start of fixed memory 

002000 GOPROG 

002004 T3RUPT 

020010 ERRUPT 

020014 DSRUPT 

020020 KEYRUPT 

020024 UPRUPT 



AGC (re) start vector 

interrupt vector for TIME3 (T3RUPT) 

interrupt vector 

interrupt vector for DSRUPT (T4RUPT) 

interrupt vector for keyboard 

interrupt vector for uplink 



AGC TABLES (name, file, description) 



bank40_l . asm 
bank40_l . asm 
dskye . asm 



bank41_l . asm 



Keyboard /display 
CHARIN2 
INRELTAB 
DSP TAB 

Verbs : 



NNADTAB 

HSTYPTAB 

SFINTAB 

SFOUTAB 

ID ADD TAB 

RUTMXTAB 



Noun scale factor routines: 

SFOUTABR bank41_l . asm 

SFINTABR bank41_2 .asm 



ank.42 


.3 


asm 


a.nk.42 


.3 


asm 


ank.42 


.3 


asm 


ank.42 


3 


asm 


ank42 


3 


asm 


ank42 


3 


asm 



Major Modes : 

FCADRMM 

EPREMM1 



bank04_l . asm 
bank04_l , asm 



keyboard character table 

DSKY register /display table map 

display table for DSKY 



regular verb routines (00—39) 



noun address table (00-99) 

noun type table (00-99) 

noun input scale factor select 

nout output scale factor select 

mixed noun address table (40—99) 

mixed noun scale factor routine (40—99) 



scale factor output routines 
scale factor input routines 



entry points for MM jobs 
priorities for MM jobs 



ERASEABLE MEMORY DECLARATIONS 



ORG 
INCL 



BANKO 
waitlist_ 



immediately following counters 
WAITLIST variables 



WAITLIST ( file: wait list_e. asm) 

Version : 1.0 

Author : John Pultorak 

Date: 11/15/2001 

PURPOSE: 

Eraseable memory variables and struct ures for the WAITLIST . See the 

WAITLIST source code file for more information . 



MAXTASK 


EQU 


MAXVAL 


EQU 


MAXDELAY 


EQU 


MAXTIMEOUT 


EQU 



7 ; max number of tasks 

%037777 ; largest pos 15-bit int (+16383 dec) 

12000 ; 120 seconds (in . 01 sec ticks) 

MAXVAL-MAXDELAY+1 ; TIME3 setting for MAXDELAY 



task delta t : number of 10 mSec ticks until timeout . 

i.e. O = timeout , 1=1 OmS until timeout , 2 = 2 OmS until timeout . 



maximum time delay is 12 (decimal ) seconds . 



,' If a task record is empty (unused) , the address is always set to 
; zero and the time is set to MAXDELA Y . 



; task record structure 
TSKTIME EQU 

TSKADDR EQU 1 



offset to task del ta time 
offset to 1 4 -bit task address 



TRECSZ 



5QU 



; size of task record (words) 



; Array of all task records 
WL_taskList EQU * 



00057 


0057 


00060 


0060 


00061 


00 61 


00062 


0062 


00063 


0063 


00064 


0064 


00065 


0065 


00066 


0066 


00061 


0067 


00070 


0070 


00071 


0071 


00072 


0072 


00073 


0073 


00074 


0074 


00075 


0075 


00076 


0076 


00077 


0077 


00100 


0100 


00101 


0101 


00102 


0102 


00103 


0103 


00104 


0104 


00105 


0105 


00106 


0106 


00107 


0107 


00110 


0110 


00111 


0111 


00112 


0112 


00113 


0113 


00114 


0114 


00115 


0115 


00116 


0116 


00117 


0117 


00120 


0120 


00121 


0121 


00122 


0122 


00123 


0123 


00124 


0124 


00125 


0125 


00126 


0126 


00127 


0127 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



DS 
DS 



DS 
DS 



DS 
DS 



DS 
DS 



DS 
DS 



DS 
DS 



DS 
DS 



00000 1 WL_IN_saveQ DS 

00000 1 HL_IN_taskPtr DS 

00000 1 HL_IN_loopCnt DS 

00000 1 WL_AT_saveQ DS 

00000 1 WL_AT_taskPtr DS 

00000 1 «L_AT_newTime DS 

00000 1 WL_AT_timeLeft DS 

00000 1 WL_AT_loopCnt DS 



00000 1 WL_T3_saveQ 
00000 1 WL_T3_oldBank 



DS 
DS 



00000 1 HL_ST_saveQ DS 

00000 1 HL_ST_taskPtr DS 

00000 1 HL_ST_netrTime DS 

00000 1 WL_ST_loopCnt DS 



00000 1 WL_RT_saveQ 
00000 1 «L_RT_runAddr 



DS 
DS 



00000 1 WL_RM_saveQ DS 

00000 1 WL_RM_taskPtr DS 

00000 1 WL_RM_taskPtr2 DS 

00000 1 WL_RM_loopCnt DS 

00000 1 WL_RM_retval DS 

00000 1 WL_IS_newTime DS 

00000 1 WL_IS_newAddr DS 

00000 1 WL_IS_saveQ DS 

00000 1 WL_IS_taskPtr DS 

00000 1 «L_IS_taskPtr2 DS 

00000 1 WL_IS_loopCnt DS 



record 



record 1 



record 2 



record 3 



record 4 



record 5 



record 6 



return address 

points to task rec in list 

loop counter 

return address 

points to task rec in list 

time to be inserted 

time remaining until timeout 

loop counter 

return address 
current bank 

return address 

points to task rec in list 

time-out time 

loop counter 

return address 
address of task to run 

return address 

points to task rec in list 

points to task rec behind taskPtr 

loop counter 

tmp store for return value 

INPUT: time to be inserted 

INPUT: address to be inserted 

return address 

points to task rec in list 

points to task rec ahead of taskPtr 

loop counter 



exece . asm 



EXEC variables 



EXEC ( file : exec_e . asm) 

Version : 1.0 

Author : John Pultorak 

Date: 04/26/2002 

PURPOSE: 

Eraseable memory variables and structures for the EXEX . 

source code file for more information . 



See the EXEC 



The COLOSSUS version of this is on p. 



70. 



ERRATA: The current version of the EXEC does not set the BANKSET parameter . 
Instead, it stores the 14-bit CADR in IOC. Also, the JOBPRIOBASE field 
has been added. 



MAX JOBS 
JRECSZ 



EQU 
EQU 



; max number jobs (not incl current job) 
; size of job record (words ) 



; (COLOSSUS, p. 10) 

; dynamically allocated core sets for EXEC jobs (8 sets) 



; record for current (running) job 

; Job priority : 0=no job, l=lowest priori ty job , 2= . 



EX_currentJob EQU 











MPAC 


EQU 


* 


00130 


0130 


00000 


1 




DS 





00131 


0131 


00000 


1 




DS 





00132 


0132 


00000 


1 




DS 





00133 


0133 


00000 


1 




DS 





00134 


0134 


00000 


1 




DS 





00135 


0135 


00000 


1 




DS 





00136 


0136 


00000 


1 




DS 





00131 


0137 


00000 


1 


MODE 


DS 





00140 


0140 


00000 


1 


LOC 


DS 





00141 


0141 


00000 


1 


BANKSET 


DS 





00142 


0142 


00000 


1 


PVSHLOC 


DS 





00143 


0143 


00000 


1 


PRIORITY 


DS 





00144 


0144 


00000 


1 


JOBPRIOBASE 


DS 






multi-purpose accumulator 



+1 for TP , +0 for DP, or -1 for vector 

location associated with job 

usually contains bank setting 

word of packed interpretive parameters 

priority of present job and work area 

nominal job priority 



records for additional jobs waiting to run 



EQV 
ORG 



JRECO+JRECSZ 



EQV 
ORG 



JREC1 + JRECSZ 



EQV 
ORG 



JREC2+JRECSZ 



EQV 
ORG 



JREC3+JRECSZ 



EQV 
ORG 



JREC4+JRECSZ 



EQV 
ORG 



JREC5+JRECSZ 



EQV 
ORG 



JREC6+JRECSZ 



sorted list of jobs to run. The list is sorted by job priority 

with the highest priority job at the top of the list. Each 

entry on the list is a word index to a job record; the indexes are 

relative to ' EXcurrentJob ' , but the current job is not on the 
list . 



EX_jobList 



EQV 
ORG 



EX_jobZist+MAXJOBS 



EX_jobList 



index to next job record 



00307 


0307 


00310 


0310 


00311 


0311 


00312 


0312 


00313 


0313 


00314 


0314 


00315 


0315 


00316 


0316 


00317 


0317 


00320 


0320 


00321 


0321 


00322 


0322 


00323 


0323 


00324 


0324 







CHGJOB 


EQV 






KEEPJOB 


EQV 


00000 


1 


new Job 


DS 


00000 


1 


EX_JW_saveQ 


DS 


00000 


1 


EX_JW_loopCnt 


DS 


00000 


1 


EX_JW_CADR 


DS 


00000 


1 


EX_JW_foundit 


DS 


00000 


1 


EX_JW_jobPtr 


DS 


00000 


1 


EX_JW_jobPtr2 


DS 


00000 


1 


EX_JH_fndIndx 


DS 


00000 


1 


EX_AJ_saveQ 


DS 


00000 


1 


EX_AJ_loopCnt 


DS 


00000 


1 


EX_AJ_jobPrio 


DS 


00000 


1 


EX_AJ_jobPtr 


DS 


00000 


1 


EX_AJ_field 


DS 


00000 


1 


EX_AJ_findx 


DS 



change jobs at next opport unity 

keep the same job 

change flag (set to CHGJOB or KEEPJOB) 

return address 

loop counter 

address of job to wake 

O=job not found, 1= found 

points to job rec in list 

points to job rec ahead of jobPtr 

index to awoken record 

return address 

loop counter 

priori ty of new job 

initialized to EX_jobList at start up 

index to field from start of record 

total index to field 



00325 


0325 


00326 


0326 


00327 


032 7 


00330 


0330 


00331 


0331 


00332 


0332 


00333 


0333 


00334 


0334 


00335 


0335 


00336 


0336 


00337 


0337 


00340 


0340 


00341 


0341 


00342 


0342 


00343 


0343 


00344 


0344 


00345 


0345 


00346 


0346 


00347 


0347 


00350 


0350 


00351 


0351 


00352 


0352 


00353 


0353 


00354 


0354 



00000 1 EX_IN_saveQ DS 

00000 1 EX_IN_loopCnt DS 

00000 1 EX_IN_jobPtr DS 

00000 1 EX_IN_recIndex DS 

00000 1 EX_IN_field DS 

00000 1 EX_IN_findx DS 

00000 1 EX_MN_runAddr DS 

00000 1 EX_MN_f±Bld DS 

00000 1 EX_MN_findx DS 



00000 


1 


EX 


RM 


saveQ 


DS 


00000 


1 


EX 


RM 


jobPtr 


DS 


00000 


1 


EX 


RM 


jobPtr2 


DS 


00000 


1 


EX 


RM 


savePtr 


DS 


00000 


1 


EX 


RM 


loopCnt 


DS 


00000 


1 


EX 


RM 


retval 


DS 


00000 


1 


EX 


RM 


field 


DS 


00000 


1 


EX_ 


RM_ 


findx 


DS 


00000 


1 


EX 


IS 


newPrio 


DS 


00000 


1 


EX 


IS 


newPrioB 


DS 


00000 


1 


EX 


IS 


ncwLoc 


DS 


00000 


1 


EX 


IS 


saveQ 


DS 


00000 


1 


EX 


IS 


jobPtr 


DS 


00000 


1 


EX 


IS 


jobPtr2 


DS 


00000 


1 


EX_ 


IS_ 


loopCnt 


DS 
INCL 






























dskye . asm 



return address 

loop counter 

points to job rec in list 

record index init counter 

index to field from start of record 

total index to field 

address of job to run 

index to field from start of record 

total index to field 

return address 

points to job rec in list 

points to job rec behind jobPtr 

tmp store for index taken off list 

loop counter 

tmp store for return value 

index to field from start of record 

total index to field 

INPUT: priority to be inserted 

INPUT: nominal priority to be inserted 

INPUT: address to be inserted 

return address 

points to job rec in list 

points to job rec ahead of jobPtr 

loop counter 

DSKY variables 



DSKY (file:dsky_e.asm) 

Version : 1.0 

Author : John Pultorak 

Date: 12/14/2001 

PURPOSE: 

Eraseable memory variables and structures for the DSKY. See the EXEC 

source code file for more information . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968. 



00355 0355 



00000 1 FLAGKRD5 



GENERAL ERASABLE ASSIGNMENTS 
(COLOSSUS, p. 66) 



interrupt temporary storage pool 
(ITEMP1 through RUPTREG4) 



00356 0356 



00357 0357 



00360 0360 



00361 0361 



03 62 03 62 



00363 0363 



00364 0364 

00365 0365 

00366 0366 

00367 0367 
00370 0370 



00000 1 ITEMP1 

WAITEXIT 
EXECTEM1 

0000 1 ITEMP2 

HAITBANK 
EXECTEM2 

0000 1 ITEMP3 

RUPTSTOR 
WAIT ADR 
NEHPRIO 

00000 1 ITEMP4 
; LOCCTR 
« AIT TEMP 

00000 1 ITEMP5 
NEWLOC 



00000 
00000 
00000 
00000 
00000 



I TEMP 6 
NEHL0CP1 

NEHJOB 

RUPTREG1 

RUPTREG2 

RUPTREG3 

RUPTREG4 

KEYTEMP1 

DSRUPTEM 



DS 





EQU 


I TEMPI 


EQU 


I TEMPI 


DS 





EQU 


I TEMP 2 


EQU 


I TEMP 2 


DS 





EQU 


I TEMP 3 


EQU 


I TEMP 3 


EQU 


I TEMP 3 


DS 





EQU 


I TEMP 4 


EQU 


I TEMP 4 


DS 





EQU 


I TEMP 5 


DS 





EQU 


I TEMP 6 


DS 





DS 





DS 





DS 





DS 





EQU 


RUPTREG4 


EQU 


RUPTREG4 



moved to EXEC 



DP address 

COLOSSUS : must be at loc 68 due to wiring 



FLAGWORD reservations 









STATE 


EQU 


* 


00371 


0371 


00000 


1 


DS 





00372 


0372 


00000 


1 


DS 





00373 


0373 


00000 


1 


DS 





00374 


0374 


00000 


1 


DS 





00375 


0375 


00000 


1 


DS 





00376 


0376 


00000 


1 


DS 





00377 


0377 


00000 


1 


DS 





00400 


0400 


00000 


1 


DS 





00401 


0401 


00000 


1 


DS 





00402 


0402 


00000 


1 


DS 





00403 


0403 


00000 


1 


DS 





00404 


0404 


00000 


1 


DS 











FLAGFILL 


EQV 


. 


00405 


0405 


00000 


1 


DS 





00406 


0406 


00000 


1 


DS 





00407 


0407 


00000 


1 


DS 





00410 


0410 


00000 


1 


DS 






12 words 



space for future flags 



pad load for DAPs 
(COLOSSUS, p. 67) 



exit for VB3 



FLAGFILL 



S TA TEX I T 



FLAGFILL+2 



EXEC temporaries which may be used between CCS NEWJOBS . 
(INTB15P through RUPTMXM) 



00000 


1 


INTB1 5P 


DS 









D SEX IT 


EQV 


INTB15P ; 






EX ITEM 


EQU 


INTB1 5P ; 






BLANKRET 


EQU 


INTB15P ; 


00000 


1 


INTBIT15 


DS 









WRDRET 


EQU 


INTBIT15 ; 






WDRET 


EQU 


IMFB.rT.15 ; 






DECRET 


EQU 


INTBIT15 ; 






_2122REG 


EQU 


INTBIT15 ; 



reflects 15th bit of indexable addresses 
return for DSPIN 

return for scale factor routine select 
return for 2BLANK 

similar to above 

return for 5BLANK 

return for DSPWD 

return for PUTCOM (dec load) 

temp for CHARIN 



The registers between ADDRWD and PRIORITY must stay in the following order 
for interpretive trace. 



00413 
00414 



0413 
0414 



00415 


0415 


00416 


0416 


00417 


0417 


00420 


0420 


00421 


0421 


00422 


0422 


00423 


0423 


00424 


0424 



00000 1 ADDRHD 
00000 1 POLISH 

UPDATRET 
CHAR 
ERCNT 
DECOUNT 

00 00 1 FIXLOC 
00000 1 OVFIND 



00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

SGNON 
NOUNTEM 
DISTEM 
DECTEM 

SGNOFF 
NVTEMP 
SF TEMPI 
HITEMIN 



DS 

DS 

EQU 

EQU 

EQU 

EQU 

DS 
DS 

EQU 

DS 

DS 

DS 

DS 

DS 

DS 

EQU 

EQU 

EQU 

EQU 

EQU 
EQU 
EQU 
EQU 
lost = LOWTEMIN-1 







POLISH 

POLISH 

POLISH 

POLISH 



















VBUF 

VBUF 

VBUF 

VBUF 

VBUF+1 
VBUF+1 
VBUF+1 
VBUF+1 



12 bit interpretive operand subaddress 

holds CADR made from POLISH address 

return for UPDATNN, UPDATVB 

temp for CHARIN 

counter for error light reset 

counter for scaling and display (dec) 

work area address 

set non-zero on overflow 

temporary storage used for vectors 



temp for + , - on 

counter for MIXNOUN fetch 

counter for octal display verbs 

counter for fetch (dec display verbs) 

temp for + , - off 

temp for NVSUB 

storage for SF const hi part (=SFTEMP2-1 ) 

temp for load of hrs, min , sec 



CODE EQU VBUF+2 

SFTEMP2 EQU VBUF+2 

LOWTEMIN EQU VBUF+2 

; must = HITEMIN+1 



for DSPIN 

storage for SF const low part ( = SFTEMP1+1 ) 

temp for load of hrs, min, sec 



; (COLOSSUS, 


p. 68) 




MIXTEMP 


EQU 


VBUF+3 


SIGNRET 


EQU 


VBUF+3 



for MIXNOUN data 
return for +, - on 



; Also, MIXTEMP+1 = VBUF+4, MIXTEMP+2 
BUF EQU * 



VBUF+5 
: temporary scalar storage 



00425 


0425 


00000 


1 






DS 





00426 


0426 


00000 


1 






DS 





00427 


0421 


00000 


1 






DS 





00430 


0430 


00000 


1 


BVF2 




DS 





00431 


0431 


00000 


1 


INDEXLOC 

SWWORD 

SHBIT 




DS 

EQU 
EQU 
EQU 




BUF 
BUF 
BUF + 1 


00432 


0432 


00000 


1 


MP TEMP 
DMPNTEMP 




DS 
EQU 




MP TEMP 


00433 


0433 


00000 


1 


DOTINC 
DVSIGN 
ESCAPE 
ENTRET 




DS 
EQU 
EQU 
EQU 




DOTINC 
DOTINC 
DOTINC 


00434 


0434 


00000 


1 


DOTRET 

DVNORMCT 

ESCAPE2 

WDCNT 

INREL 




DS 

EQU 

EQU 

EQU 

EQU 




DOTRET 

DOTRET 

DOTRET 

DOTRET 


00435 


0435 


00000 


1 


MAT INC 

MAXDVSW 

POLYCNT 

DSPMMTEM 

MIXBR 




DS 

EQU 

EQU 

EQU 

EQU 




MAT INC 
MAT INC 
MAT INC 
MAT INC 


00436 


0436 


00000 


1 


TEM1 

POLYRET 

DSREL 




DS 

EQU 

EQU 




TEM1 

TEM1 


00431 


0431 


00000 


1 


TEM2 

DSMAG 

IDADDTEM 




DS 

EQU 

EQU 




TEM2 

TEM2 


00440 


0440 


00000 


1 


TEM3 
COUNT 




DS 
EQU 



TEM3 


00441 


0441 


00000 


1 


TEM4 

LSTPTR 

RELRET 

FREERET 

DSPWDRET 

SEPSCRET 

SEPMNRET 




DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 




TEM4 

TEM4 

TEM4 

TEM4 

TEM4 

TEM4 


00442 


0442 


00000 


1 


TEM5 
NOUN ADD 




DS 
EQU 



TEM5 










; (COLOSSUS, 


p. 69) 




00443 


0443 


00000 


1 


MN AD TEM 




DS 





00444 


0444 


00000 


1 


NNTYPTEM 




DS 





00445 


0445 


00000 


1 


IDAD1TEM 




DS 













; must - 


IDAD2 TEM-1, 


= IDAD3TEM-2 


00446 


0446 


00000 


1 


IDAD2TEM 




DS 













; must - 


IDAD2TEM+1, 


= IDAD3TEM-1 


00441 


0441 


00000 


1 


IDAD3TEM 




DS 













; must - 


IDAD1 TEM+2, 


= IDAD2TEM+1 


00450 


0450 


00000 


1 


RUTMXTEM 




DS 






contains address of specified ind&x 

address of swi tch word 

swit ch bit within swit ch word 

temporary used in multiply and shift 

DMPSUB temporary 

component increment for DOT subroutine 

determines sign of DDV resul t 

used in arcsin/ arccos 

exit from enter 

return from DOT subroutine 

dividend normalization count in DDV 

al ternate arcsin/ arccos swit ch 

char counter for DSPWD 

input buffer selector (X,Y,Z REG) 

vector increment in MXV and VXM 

+0 if DP quotient is near one — else —1 

pol yn om ial lo op counter 

DSPCOUNT save for DSPMM 

indi cat or for mixed or normal noun 

EXEC temp 

rel address for DSPIN 

EXEC temp 

magnit ude store for DSPIN 

mixnoun indirect address store 

EXEC temp 
for DSPIN 

EXEC temp 

list pointer for GRABUSY 
return for RELDSP 
return for FREEDSP 
return for DSPSIGN 
return for SEPSEC 
return for SEPMIN 

EXEC temp 

temp storage for noun address 



temp for noun address table entry 

temp for noun type table entry 

t emp for i n di r a ddress t able en t ry (MIXNN) 

temp for indir address table entry (MIXNN) 

t emp for i n di r a ddress t able en t ry (MIXNN) 

temp for SF rout table entry (MIXNN only) 



AX*SR*T storage 



DEXDEX 


EQU 


TEM2 


DEX1 


EQU 


TEM3 


DEX2 


EQU 


TEM4 


RTN SAVER 


EQU 


TEM5 


TERM1 TMP 


EQU 


BUF 2 



B(l) trap 

B(l) trap 

B(l) trap 

B(l) tap 

B(2) trap 



(COLOSSUS, p. 10) Note: 
Moved to the EXEC area 



the eraseable memory for the EXEC. 



(COLOSSUS, p. 12) 

unswit ched for display interface routines 



00451 


0451 


00452 


0452 


00453 


0453 


00454 


0454 


00455 


0455 


00456 


0456 



00000 
00000 
00000 
00000 

00000 
00000 



RESTREG 
NVWORD 
MARXNV 
NVSAVE 



DS 
DS 
DS 
DS 



B(l) prm for display starts 



; (retain the order of CADRFLSH to FAILREG+2 for downlink purposes) 
CADRFLSM DS ; B(l) tmp 

CADRMARK DS ; B ( 1 ) tmp 



00457 


0457 


00000 


1 


TEMPFLSH 


DS 





00460 


0460 


00000 


1 


FAILREG 


DS 





00461 


0461 


00000 


1 




DS 





00462 


04 62 


00000 


1 




DS 






; B(l) tmp 

; B(3) prm 3 alarm-abort user=S 2CADR 



(COLOSSUS, p. 73) 
verb 37 storage 



00463 
00464 



0463 
0464 



00000 1 MINDEX 
0000 1 MMNUMBER 



DS 
DS 



; plnball Interrupt storage 
00000 1 DSPCNT DS 

; plnball executive action 



00466 


0466 


00000 


1 


DSPCOUNT 






DS 





00467 


0467 


00000 


1 


DECBRNCH 






DS 













; Bit5=Rl 


(dec 


), Bit4=R2 (dec) 


00470 


0470 


00000 


1 


VERBREG 






DS 





00471 


0471 


00000 


1 


NOUNREG 






DS 





00472 


0472 


00000 


1 


XREG 






DS 





00473 


0473 


00000 


1 


YREG 






DS 





00474 


0474 


00000 


1 


ZREG 






DS 





00475 


0475 


00000 


1 


XREGLP 






DS 





00476 


0476 


00000 


1 


YREGLP 
HITEMOUT 






DS 
EQU 



YREGLP 










; must 


equal 


LOTEMOUT 


-1 


00477 


0477 


00000 


1 


ZREGLP 
LOTEMOUT 






DS 
EQU 



ZREGLP 










; must 


equal 


HITEMOUT+1 










; (COLOSSUS, 


P 


74) 




00500 


0500 


00000 


1 


MODREG 






DS 





00501 


0501 


00000 


1 


DSPLOCK 






DS 





00502 


0502 


00000 


1 


REQRET 






DS 





00503 


0503 


00000 


1 


LOADSTAT 






DS 





00504 


0504 


00000 


1 


CLPASS 






DS 





00505 


0505 


00000 


1 


NOUT 






DS 





00506 


0506 


00000 


1 


NOUNCADR 






DS 





00507 


0507 


00000 


1 


MONSAVE 






DS 





00510 


0510 


00000 


1 


M0NSAVE1 






DS 





00511 


0511 


00000 


1 


M0NSAVE2 






DS 






B (1) tmp index for major mode 

B ( 1 ) tmp major mode requested via V3 7 



B(l) prm DSPOUT counter 



display position indicator 
Bits2,l: octal=0, +dec=l, - 
(dec) 
verb code 
noun code 
Rl input buffer 
R2 input buffer 
R3 input buffer 
low part of XREG 
low part of YREG 



(for ded conv only) 
(for ded conv only) 



temp for display of HRS , MIN, SEC 



low part of ZREG (for ded conv only) 
temp for display of HRS, MIN, SEC 



mode code 

keyboard/ subroutine call interlock 

return register for load 

status indicator for LOADTST 

pass indicator clear 

activity counter for DSPTAB 

machine CADR for noun 

N/V code for monitor (= M0NSAVE1 - 1) 

NOUNCADR for monitor (MATBS) = MONSAVE 

NVMONOPT options 



The 11 register table for the display panel (COLOSSUS, p. 74, p. 306) 
comment key = RELADD : RELAYWD BIT 11 BITS 10-6 BITS5-1 



00512 


0512 


00513 


0513 


00514 


0514 


00515 


0515 


00516 


0516 


00517 


0517 


00520 


0520 


00521 


0521 


00522 


0522 


00523 


0523 


00524 


0524 


00525 


0525 


00526 


0526 


00527 


0527 


00530 


0530 


00531 


0531 


00532 


0532 


00533 


0533 


00534 


0534 


00535 


0535 


00536 


0536 


00537 


0537 


00540 


0540 


00541 


0541 



00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 NVQTEM 



EQU 

DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 



must = NVBNKTEM-1 



0000 1 NVBNKTEM 



must = NVQTEM+1 



00000 
00000 
00000 
00000 



VERBSAVE 
CADRSTOR 
DSPLIST 
EXTVRACT 



00000 1 DSPTEM1 

00000 1 

00000 1 

00000 1 DSPTEM2 

00000 1 

00000 1 



DS 
DS 
DS 
DS 

DS 
DS 
DS 

DS 
DS 
DS 






0001 


-R3 


R3D4 ( 1) 


R3D5 ( 0) 


1 


0010 


+R3 


R3D2 ( 3) 


R3D3 ( 2) 


2 


0011 





R2D5 ( 5) 


R3D1 ( 4) 


3 


0100 


-R2 


R2D3 ( 7) 


R2D4 ( 6) 


4 


0101 


+R2 


R2D1 (11) 


R2D2 (10) 


5 


0110 


-Rl 


R1D4 (13) 


R1D5 (12) 


6 


0111 


+R1 


R1D2 (15) 


R1D3 (14) 


7 


1000 








R1D1 (16) 


8 


1001 





ND1 (21) 


ND2 (20) 


9 


1010 





VD1 (23) 


VD2 (22) 


1 


1:1011 





MD1 (25) 


MD1 (24) 



11: C/S lights 

NVSUB storage for calling address 

NVSUB storage for calling bank 

needed for recycle 

ENDIDLE storage 

waiting reg for DSP syst internal use 

extended verb activi ty interlock 

buffer storage area 1 (mostly for time) 



buffer storage area 2 (mostly for deg) 



DSPTEMX 
N0RMTEM1 



EQU 
EQU 



DSPTEM2 
DSPTEM1 



; display for extended verbs 
OPTIONX EQU DSPTEMX 



B (2) S-S display buffer for external verbs 
B (3) DSP normal display registers 



B (2) extended verb option code N12 (VB2) 



; temp store for major mode change 
0000 1 MMTEMP DS 



T4RVPT Erasable 



00543 


0543 


00544 


0544 


00545 


0545 


00546 


0546 



00000 1 DSRVPTSH 

00000 1 T4RET 

00000 1 DSPOUTRET 

00000 1 DK_IN_saveQ 



DS 





DS 





DS 





DS 






; (COLOSSUS, p. 78) 

; added, not part of COLOSSUS 

; added, not part of COLOSSUS 

: return for T4RUPT init 



00547 
00550 



0547 
0550 



; Replacement for Block 11 LXCH instruction (not part of COLOSSUS) 



00000 1 LXCH_LPRET 
0000 1 LXCH_A 



DS 
DS 



; LP return address 
; save A 



; vars for KEYPROG 
00000 1 KP_MPAC DS 



00552 
00553 



0552 
0553 



Vars for DPTEST (not part of COLOSSUS) 



00000 1 DPTEST_A 
00000 1 DPTEST_Q 



DS 
DS 



; Vars for REQDATX, REQDATY , REQDATZ (not part of COLOSSUS) 
0000 1 REQ_Q DS 

; Vars for SETNCADR (not part of COLOSSUS) 
00000 1 SETNCADR_Q DS 

; Vars for ALLDC_OC (not part of COLOSSUS) 
00000 1 ALLDC_OC_Q DS 

; Vars for SFRUTM1X (not part of COLOSSUS) 
00000 1 SFRUTMIX_L DS 



00564 
00565 



0564 
0565 



; Vars for SFCONUM (not part of COLOSSUS) 
00000 1 SFCONUM_L DS 

; vars for BLANKSUB (not part of COLOSSUS) 
00000 1 BLANKSUB_Q DS 

; Vars for GTSFOUT, GTSFIN (not part of COLOSSUS) 
00000 1 GTSF_RET DS 

; Vars for FIXRANGE (not part of COLOSSUS) 
00000 1 FR_RETQ DS 

; Vars for NVSUB (not part of COLOSSUS) 

00000 1 NVSUB_L DS 

00000 1 NVSUB_A DS 

; Vars for ENDIDLE (not part of COLOSSUS) 
00000 1 END1DLE_L DS 

; Vars for NVSUBUSY (not part of COLOSSUS) 
00000 1 NBSUBSY1_L DS 

; Vars for FLASHOti /FLASROFF (not part of COLOSSUS) 
00000 1 FLASHRET DS 

; vars for PASTEVB (not part of COLOSSUS) 
00000 1 PASTE_TMP DS 



; vars for NEWMODEA (not part of COLOSSUS) 
0572 00000 1 NEWMODEA_Q DS 

; Vars for MATH LIB (not part of COLOSSUS) 



00573 


0573 


00000 


1 


SHORTMP A 


DS 





00574 


0574 


00000 


1 


SHORTMP OVFL 


DS 





00575 


0575 


00000 


1 


SHORTMP OVFH 


DS 





00576 


0576 


00000 


1 


ADDRWD1 


DS 





00577 


0577 


00000 


1 


MATH_Q 


DS 





00600 


0600 


00000 


1 


PRSHRTMP_Q 


DS 






; KEYRVPT ErasBable 

00601 0601 00000 1 KEYRET DS 

00602 0602 00000 1 SAVEQ DS 



; added, not part of COLOSSUS 
; temp for ret urn addr 



Bank inter communi cation 



00603 


0603 


00000 


1 


BJBANK 


DS 





00604 


0604 


00000 


1 


BJRET 


DS 





00605 


0605 


00000 


1 


PJBANK 


DS 





00606 


0606 


00000 


1 


PJRET 


DS 





00607 


0607 


00000 


1 


PJA 


DS 





00 610 


610 


00000 


1 


BCBANK 


DS 





00 611 


0611 


00000 


1 


BCRET 


DS 





00612 


0612 


00000 


1 


BCA 


DS 





00 613 


0613 


00000 


1 


MBCBANK 


DS 





00 614 


0614 


00000 


1 


MBCRET 


DS 





00 615 


615 


00000 


1 


MBCA 


DS 





00 616 


0616 


00000 


1 


DCBANK 


DS 





00 617 


0617 


00000 


1 


DCRET 


DS 






FIXED MEMORY DECLARATIONS 



ORG 
DS 



EXTENDER 
%47777 



needed for EXTEND 



RESTART/INTERRUPT ENTRY POINTS 















Program (re) start 


















ORG 


GOPROG 


02000 


2000 





1, 


2126 





Interrupt 


TC 

vectors 

ORG 


goMAIN 
T3RUPT 


02004 


2004 


5 


0, 


0026 







TS 


ARUPT 


02005 


2005 


3 


0, 


0001 







XCH 


Q 


02006 


2006 


5 


0, 


0027 


1 




TS 


QRUPT 


02007 


2007 





1, 


2034 


1 




TC 
ORG 


goT3 
ERRUPT 


02010 


2010 


5 


0, 


0026 







TS 


ARUPT 


02011 


2011 


3 


0, 


0001 







XCH 


Q 


02012 


2012 


5 


0, 


0027 


1 




TS 


QRUPT 


02013 


2013 





1, 


2036 







TC 
ORG 


goER 
DSRUPT 


02014 


2014 


5 


0, 


0026 







TS 


ARUPT 


02015 


2015 


3 


, 


0001 







XCH 


Q 


02016 


2016 


5 


0, 


0027 


1 




TS 


QRUPT 


02017 


2017 





1, 


2037 


1 




TC 
ORG 


goDS 
KEYRUPT 


02020 


2020 


5 


0, 


0026 







TS 


ARUPT 


02021 


2021 


3 


, 


0001 







XCH 


Q 


02022 


2022 


5 


, 


0027 


1 




TS 


QRUPT 


02023 


2023 





1, 


2041 







TC 
ORG 


goKEY 
UPRUPT 


02024 


2024 


5 


, 


0026 







TS 


ARUPT 


02025 


2025 


3 


, 


0001 







XCH 


Q 


02026 


2026 


5 


0, 


0027 


1 




TS 


QRUPT 


02027 


2027 





1, 


2043 


1 




TC 


goUP 



AGC (re) start begins here ! 



TIME3 interrupt vector 



T4RUPT for DSKY display 



DSKY keyboard interrupt vector 



restorB Q and A registBrs and resume 















endRUPT 


EQU 


* 


02030 


2030 


3 





0027 


1 




XCH 


QRUPT 


02031 


2031 


5 


0, 


0001 







TS 


Q 


02032 


2032 


3 





0026 







XCH 


ARUPT 


02033 


2033 


2 





0000 


1 




RESUME 





; restore Q 



; restore A 

; resume normal program execution 



RVPT (INTERRUPT) SERVICE ROUTINES 

Upon entry, registers will contain these values: 

- ZRUPT : Prior contents of program counter (Z register ) . 

- BRUPT: Prior contents of B register . 

- ARUPT: Prior contents of accumulator (A register ) . 

- QRUPT: Prior contents of Q register . 

When the service routine is finished, jump to endRUPT to restore the A 
and Q registers. Call RESUME to restore Z and B, which causes a return 
to normal (non-inter rupt ) execution. Interrupts are disabled upon entry 
to the service routine ; they are reenabled following RESUME . 



goT3 



02034 
02035 



02037 
02040 



02041 
02042 



2034 

2035 



2037 
2040 



2041 

2042 



1,2347 
1,2030 



goER 



2036 1,2030 



goDS 



2,4047 
1,2030 



goKEY 



2,4132 
1,2030 



goUP 



2043 1,2030 



EQU 


* 


TCR 


WL TIME 


TC 


endRUPT 


EQU 


* 


TC 


endRUPT 


EQU 


* 


TCR 


T4PR0G 


TC 


endRUPT 


EQU 


* 


TCR 


KEYPROG 


TC 


endRUPT 


EQU 


* 


TC 


endRUPT 



«L_TIME3task ; handle T3RUPT for WAITLIST 



; handle T4RUPT for DSKY display 



; handle keyrupt for keyboard entry 



FIXED MEMORY CONSTANTS 



0200 of bit 



0UT1, bit 8 initiates standby 



02045 


2045 


02046 


2046 


02047 


2047 


02050 


2050 


02051 


2051 


02052 


2052 


02053 


2053 


02054 


2054 


02055 


2055 


02056 


2056 


02057 


2057 


02060 


2060 


02061 


2 61 



77777 





NEGO 


77776 


1 


NEG1 


77775 


1 


NEG2 


00000 


1 


ZERO 


00001 





ONE 


00002 





TWO 


00003 


1 


THREE 


00004 





FOUR 


00005 


1 


FIVE 


00006 


1 


SIX 


00007 





SEVEN 


00012 


1 


TEN 


00013 





ELEVEN 



DS 
DS 
DS 

DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 



2 
3 

4 
5 
6 
7 
10 



must be in reverse order, 
and indexes thru it. 



Pinball treats this as a table 



02 62 


2 62 


02063 


20 63 


02064 


2064 


02065 


2065 


02066 


2066 


02067 


2067 


02070 


2070 


02071 


2071 


02072 


2072 


02073 


2073 


02074 


2074 


02075 


2075 


02076 


2076 


02077 


2077 


02100 


2100 



40000 





BIT15 


20000 





BIT14 


10000 





BIT13 


04000 





BIT12 


02000 





BIT11 


01000 





BIT10 


00400 





BIT9 


0020 





BITS 


00100 





BIT7 


00040 





BIT6 


00020 





BIT5 


00010 





BIT4 


00004 





BIT3 


00002 





BIT2 


00001 





BIT1 


00177 





L0W7 



02102 


2102 


02103 


2103 


02104 


2104 



06000 1 bankAddr 
01777 1 lowAddr 
01400 1 OCT1400 



DS 


%40000 


DS 


%20000 


DS 


%10000 


DS 


%04000 


DS 


%02000 


DS 


%01000 


DS 


%00400 


DS 


%00200 


DS 


%00100 


DS 


%00040 


DS 


%00020 


DS 


%00010 


DS 


%00004 


DS 


%00002 


DS 


%00001 


DS 


%00177 


DS 


%6000 


DS 


%1777 


DS 


%1400 



fixed-swit chable addr range starts here 
mask for 1 O-bi t address 



02105 
02106 



2105 
2106 



00013 NOUTCON 
3 7777 1 POSMAX 



DS 
DS 



11 
%37777 



CLRMEM 



INITIALIZE ERASEABLE MEMORY 



Uses QRUPT and ARUPT as scratchpad . This is OK, because interrupts 
are disabled anyway. All eraseable memory above the AGC clock (T1ME1, 
TIME2) is cleared . The AGC clock is not cleared because this might 
be a restart or a startup from standby mode. 



02107 
02110 



02111 
02112 



2107 3 
2110 5 



2111 3 

2112 5 



0, 0001 
0, 0027 1 



1,2123 
0, 0026 



EQV 
XCH 

TS 

XCH 

TS 



Q 

QRUPT 



CLRMEM_ HC 
ARUPT 



save return address 

init count of words to clear 



CLRMEM_CHK 



02113 
02114 
02115 



02116 
02117 
02120 
02121 
02122 



2113 1 

2114 

2115 



2116 5 

2117 3 

2120 2 

2121 5 

2122 



0, 0026 1 
1,2116 
0, 0027 1 



CLRMEM_WORD 



0, 0026 

1,2050 

0, 0026 1 

0, 0037 

1,2113 



EQV 

CCS 

TC 

TC 

EQV 
TS 
CAF 
INDEX 

TS 
TC 



ARUPT 

CLRMEM_ WORD 
QRUPT 



ARUPT 
CLRMEM_ VAL 
ARUPT 

CLRMEM_BADDR 
CLRMEM_CHK 



clear a word 
done ? 



CLRMEM_ VAL EQV 

CLRMEM_BADDR EQV 

01741 1 CLRMEM_WC DS 



ZERO 

TIME3 

%1777-TIME3+1 



set memory to this value 
base address to clear 
clear everything >= TIME3 



FRESH START 

AGC starts executing here, following power-up, or restart. 



02124 


2124 




10000 





V3 7 BANK 


DS 


%10000 


02125 


2125 




37600 





SAMASK 

goMAIN 
SLAP1 


DS 

EQV 
EQV 


%37600 
goMAIN 


02126 


2126 


2 


0, 0000 







INHINT 





; BANK (4) containg PREMM1 , FCADRMM1 
; mask, to zero lower 7 bits 



; entry for V36 (fresh start request ) 



02127 


2127 


3 


1 


2071 





02130 


2130 


6 





0036 


1 


02131 


2131 


5 





0036 


1 


02132 


2132 


3 


1 


2050 





02133 


2133 


6 





0035 


1 


02134 


2134 


5 





0035 


1 


02135 


2135 


3 


1 


2125 





02136 


2136 


7 





0036 





02137 


2137 


5 





0036 


1 


02140 


2140 


3 


1 


2044 





02141 


2141 


5 





0011 


1 


02142 


2142 





1 


2107 






First , check for standby operation . Loosely based on the standby 
algorithm in R—3 93. Probably should flash the ' computer activity ' 
light as well . 

; add 2 to 1th power to AGC clock 



; skipped on ovf and C (A) set to 1 
; bump TIME 2 with overflow, if any 



CAF 


BITS 


AD 


TIME1 


TS 


TIME1 


CAF 


ZERO 


AD 


TIME2 


TS 


TIME2 


CAF 


SAMASK 


MASK 


TIME1 


TS 


TIME1 


XCH 


of bit 


TS 


0VT1 



zero the LSBs of TIME1 



; enable standby operation 



clear everything but the AGC clock 



set fresh start major mode to POO (AGC CMC idle) 



02143 


2143 


3 


1 


2124 


1 


02144 


2144 


5 





0015 





02145 


2145 


3 


4 


6046 





02146 


2146 


5 





0463 






goMMchange 



2147 2 0, 0000 



CAF 


V3 7 BANK 


TS 


BANK 


CAF 


NOV 3 7 MM 


TS 


MINDEX 


EQV 


* 


INHINT 





bank for major mode tables 



assumes BANK is set (above) 
index to POO 



; inhibit interrupts 



; Initialize WAITLIST and EXEC eraseable memory. Initialize DSKY eraseable 



02150 2150 1, 3252 1 

02151 2151 1,2204 

02152 2152 2, 4007 1 



jtBmory (but don ' t initialize BANK or MIND EX; they are used to start the 
nain job for this major mode . 

; initialize EXEC 

; initialize WAITLIST 

; initialize DSKY 



TCR 


EX 


initEX 


TCR 


WL 


initWL 


TCR 


DK 


initDK 



; Start the major mode job. This is modified from COLOSSUS because block I 

; doesn 't have E-bank and my SPVAC interface is a little different from the 

; original. The references to PREMM1 and FCADRMM1 assume that the BANK is 

; set to the one containing those tables . 



02153 
02154 
02155 
02156 

02151 
02160 
02161 
02162 

02163 
02164 



02166 
02167 
02170 
02171 

02172 



2153 2 0, 0000 

2154 2 0, 0463 1 

2155 3 4, 6037 

2156 5 0, 0542 1 

2157 7 2, 4666 1 

2160 2,4640 1 

2161 2,4640 1 

2162 5 0, 0360 1 



2163 2 

2164 3 



0, 0463 1 
4, 6030 1 



2165 1,3075 



2166 3 1,2050 

2167 6 0, 0542 1 

2170 7 1,2101 1 

2171 2, 5036 1 

2172 2,5003 1 



V3 7XEQ 


EQV 
INHINT 


* 




INDEX 


MINDEX 




CAF 


PREMM1 




TS 


MMTEMP 




MASK 


HIS 




TC 


RIGHT5 




TC 


RIGHT5 




TS 


NEWPRIO 




INDEX 


MINDEX 




CAF 


FCADRMM1 




TC 


SPVAC 


V37XEQC 


EQV 


* 




CAF 


ZERO 




AD 


MMTEMP 




MASK 


L0W7 




TC 


NEWMODEA 




TC 


RELDSP 



obtain priority bits 15—11 



shift right to bits 5-1 
store PRIO for SPVAC 



job CADR in C (A) , job prio in NEWPRIO 



was CA MMTEMP in Block II 

upon ret urn from FINDVAC , place the 

new MM in MODREG (the low 7 bits of 

PHSERDT1) 



release display 



; Start the EXEC. 



2173 1,2656 



never returns 



AGC LIBRARIES 

System services in fixed- fixed memory . 



INCL 



wai tlist_f . asm 



WAITLIST, incl. T3RUPT handler 



WAITLIST ( file: wait list_f. asm) 

Version : 1.0 

Author : John Pultorak 

Date: 11/15/2001 

PURPOSE: 

Constants and source code for WAITLIST . 

No n -preemptive interrupt timer routines , originally implemented by J . H . 
Laning, Jr . for AGC 3 and later adapted for AGC 4 . Briefly discussed in 
R-393 , which gives some of the software interfaces into the WAITLIST . 
This is my own recreation , and the internals may di ffer from the original . 

A task is scheduled for execution by calling ' WAITLIST ' and 
furnishing the time-out time and starting address . 

L XCH TASK_TIMEOUT ; in 10 mSec ticks 

L+l TC WAITLIST 

L+2 DS TASK_ADDRESS ; 14 -bit address 

L+3 . . . execution resumes here 

TASK_TIMEOUT = a positive integer from 1 - MAXDELAY that specifies the delay 

in 10 mSec ticks . Maximum delay is 12000 (2 minutes ) . 
TASK_ADDRESS = starting address of the task (14-bit address) 

WAITLIST can be called from from an interrupt , or from normal execution . 
It is the only public function of the wai tlist . 

**** WARNING **** If WAITLIST is not called from an interrupt, be sure to 
inhibit interrupts before calling it to protect the integri ty of the list . 

Tasks execute when TIME 3 overflows and generates an interrupt (T3RUPT) . 
The task executes during the interrupt . Tasks terminate themselves by 
jumping to TASKOVER. 

TC TASKOVER 

Because tasks execute during an interrupt , they should be fairly short . 
Tasks can initiate longer operations by scheduling a ' job ' using EXEC . 



02174 


2174 


02175 


2175 


02176 


2176 


02177 


2177 


02200 


2200 


02201 


2201 


02202 


22 02 


02203 


2203 



00002 WL_taskRecSize DS 

00057 WL_tskLstStart DS 

00073 WL_tskLstEnd DS 

0000 6 1 WL_numTasks DS 

00005 1 WL_numTasksl DS 

37777 1 WL_maxVal DS 

27340 WL_maxDelay DS 

10440 WL_max Time Out DS 



TRECSZ ; size of a task record (words) 

WL_taskList ; starting address for task list 

MAXTASK-l@TRECSZ+WL_taskList 

MAXTASK-1 ; init loop counter for all tasks 

MAXTASK-2 ; init loop counter for all tasks 

MAXVAL 

MAXDELAY 

MAXTIMEOUT 



WL_initWL - INITIALIZE WAITLIST 

Subroutine initializes the eraseable memory segment for WAITLIST . 
Necessary in case the AGC is restarted . 

Note : the valid range for TIME 3 is 10440 to 37777 (which spans 
12 000 (base 10) ticks , which corresponds to 120 seconds) 
positive overflow occurs at 4 0000 , which triggers T3RUPT . 
TIME 3 val ues of to 10437 are illegal ; these val ues occur 
after timeout when the counter overflows . TIME 3 val ues in this 
range indicate that timeout has occurred and that T3RUPT is 
presently occuring, or is pending . 



WL_initWL 



02204 


2204 


3 





0001 





02205 


2205 


5 





0075 





02206 


2206 


3 


1 


2203 


1 


02207 


2207 


5 





0037 






EQU 


* 


XCH 


Q 


TS 


WL_IN_saveQ 


CAF 


WL maxTimeOut 


TS 


TIME3 



save ret urn address 



02210 


2210 


3 


1 


2175 





02211 


2211 


5 





0076 





02212 


2212 


3 


1 


2177 


1 


02213 


2213 


5 





0077 


1 


02214 


2214 


3 


1 


2202 





02215 


2215 


2 





0076 


1 


02216 


2216 


5 





0000 


1 


02217 


2217 


3 


1 


2050 





02220 


2220 


2 





0076 


1 


02221 


2221 


5 





0001 





02222 


2222 


3 





0076 





02223 


2223 


6 


1 


2174 


1 


02224 


2224 


5 





0076 





02225 


2225 


1 





0077 





02226 


2226 





1 


2213 





02227 


2227 


3 





0075 





02230 


2230 


5 





0001 





02231 


2231 








0000 






; Iterate through task list and initialize all records to NIL 

init pointer to start of list 



WL_IN_loop 



CAF 
TS 

CAF 
EQU 
TS 

CAF 

INDEX 

TS 

CAF 
INDEX 

TS 

XCH 

AD 
TS 

CCS 

TC 

XCH 

TS 

RETURN 



WL_tskLstStart 
WL_IN_taskPtr 

WLnumTasks 

WL_IN_loopCnt 

WLmaxDelay 

«L_IN_taskPtr 

TSKTIME 

ZERO 

WL_IN_taskPtr 

TSKADDR 

WL_IN_taskPtr 

WL_taskRecSize 

WL_IN_taskPtr 

WL_IN_loopCnt 
WL_IN_loop 

WL_IN_saveQ 
Q 



loop for number of tasks 



bump task pointer back 1 record 



done checking task list? 
not yet 



restore return address 



WAITLIST - ADD TASK TO WAITLIST 



task to WLtaskList . The following conditions are 



Subroutine adds c 
true upon entry. 

1) The task list is sorted so the next task scheduled for execution 
is at the front of the list. 

2) If no tasks are currently scheduled, the task record at the front 
of the list will be NIL. 

3) Unused (NIL) records in the task list have their time fields set to 
MAXDELAY and their address fields set to zero. 

4) If any tasks are on the waitlist, the time field in that task's 
record will contain the remaining time AFTER the next timeout. The 
task scheduled for execution at timeout will have a time remaining 
of zero . 

Any other tasks that will execute at that time will also have a time of 
zero. Tasks that will execute some time in the future AFTER timeout 
will have nonzero times; these times indicate the additional time 
needed after the next timeout. 

This is the only 'public' function. It can be called from a job or from 

a task or other interrupt . It disables interrupts to maintain the integrity 

of the taskList. 



WAITLIST 

02232 2232 5 0,0102 1 TS WL_AT_newTime ; save task time 

02233 2233 3 , 0001 

02234 2234 5 0.0100 TS WL_AT_saveQ ; save return address-1 



EQU 


* 


TS 


WL AT newTime 


XCH 


Q 


TS 


WL_A T_saveQ 


CAF 


ZERO 


INDEX 


WL tskLstEnd 


AD 


TSKADDR 


CCS 


A 


TC 


WL AT done 



02235 2235 3 1,2050 

02236 2236 2 1, 2116 1 

02237 2237 6 0, 0001 

02240 2240 1 0,0000 CCS A ; list full? 

02241 2241 1,2343 1 TC WL_AT_done ; >0 yes, so give up 

; Calculate time remaining until currently scheduled time-out. 

02242 2242 3 1,2050 CAF ZERO 

02243 2243 6 0,0037 AD TIME3 ; get time 

02244 2244 5 0,0103 TS WL_AT_timeLeft ; save it, temporarily 

; Did TIME3 recently overflow? If so, we are inside T3RUPT, or T3RUPT 

; is pending . TIME3 values from - 10437 are not legal, so they 

,' indicate that an overflow has occurred . 

02245 2245 4 1,2203 CS WL_maxTimeOut 

02246 2246 6 0,0103 AD WL_AT_timeLe ft 

02247 2247 1 0,0000 CCS A ; TIME3 recently overflowed? 

02250 2250 1,2264 TC WL_AT_noOvf ; >0 no 

02251 2251 1,2264 TC WL_AT_noOvf ; +0 no 

02252 2252 1,2254 TC *+2 ; <0 yes 

02253 2253 1,2264 TC WL_AT_noOvf ; -0 no 

; TIME3 already timed-out , so we must be inside T3RUPT, or T3RUPT 

; is pending . Just add the new task to the list. No time correction 

; is necessary ; the epoch is NOW. 

02254 2254 3 1,2050 CAF ZERO 

02255 2255 6 0,0102 1 AD WL_AT_newTime 

02256 2256 5 0, 0122 TS WL_IS_newTime ; set time field in new task record 

02257 2257 2 0,0100 1 INDEX WL_AT_saveQ ; indirectly address WL_AT_saveQ 

02260 2260 3 0, 0000 1 CAF 

02261 2261 5 0, 0123 1 TS WL_IS_newAddr ; set addr field in new task record 

02262 2262 1,2473 TCR WL_insert ; add new task to task list 

02263 2263 1,2343 1 TC WL_AT_done 

; TIME3 has not timed out yet. Calculate time remaining until timeout 

; (timeout occurs when TIME3 overflows ) 

WL_AT_noOvf EQV * 

02264 2264 4 0,0103 1 CS WL_AT_timeLeft ; get -TIME3 

02265 2265 6 1,2201 AD WL_maxVal 

02266 2266 6 1,2051 1 AD ONE 

02267 2267 5 0,0103 TS WL_AT_timeLeft ; time left = -TIME3 + %37777 + 1 

; Compare that time against the timeout for the new task. 

WL_AT_chkOrder EQV * 

02270 2270 4 0,0102 CS WL_AT_newTime 

02271 2271 6 0,0103 AD WL_AT_timeLeft 

02272 2272 1 0,0000 CCS A ; compare new task to current 

02273 2273 1,2306 TC WL_AT_mkFirst ; >0 (make new task 1st) 

02274 2274 1,2276 TC *+2 ; +0 

02275 2275 1,2276 TC *+l ; <0 

; The new task does not need to run before the current time-out , so 

; just add it to the list. Subtract the remaining time interval from the 

; new task's time, so the new task will have the same epoch as the other 

; tasks on the list. 

02276 2276 4 0,0103 1 CS WL_AT_timeLe ft 

02277 2277 6 0,0102 1 AD WL_AT_newTime ; make epoch correction 

02300 2300 5 0, 0122 TS WL_IS_newTime ; set time field in new task record 

02301 2301 2 0,0100 1 INDEX WL_AT_saveQ ; indirectly address WL_AT_saveQ 

02302 2302 3 0, 0000 1 CAF 

02303 2303 5 0, 0123 1 TS WL_IS_newAddr ; set addr field in new task record 

02304 2304 1,2473 TCR WL_insert ; add new task to task list 

02305 2305 1,2343 1 TC WL_AT_done 

; The new task needs to run prior to the current time-out. Add the time 

; remaining to all tasks currently on the list to change their epoch 

; to NOW. 

WL_AT_mkFirst EQU * 

02306 2306 3 1,2175 CAF WL_tskLstStart ; set pointer to front of list 



02307 


2301 


5 





0101 


1 


02310 


2310 


3 


1 


2111 


1 


02311 


2311 


5 





0104 


1 


02312 


2312 


3 


1 


2050 





02313 


2313 


2 





0101 





02314 


2314 


6 





0001 





02315 


2315 


1 





0000 





02316 


2316 





1 


2320 


1 


02311 


2311 





1 


2333 





02320 


2320 


3 


1 


2050 





02321 


2321 


2 





0101 





02322 


2322 


6 





0000 


1 


02323 


2323 


6 





0103 





02324 


2324 


2 





0101 





02325 


2325 


5 





0000 


1 


02326 


2326 


3 





0101 


1 


02321 


2321 


6 


1 


2114 


1 


02330 


2330 


5 





0101 


1 


02331 


2331 


1 





0104 





02332 


2332 





1 


2311 






WL_AT_loop 



CAF 
EQV 
TS 

CAF 
INDEX 
AD 
CCS 

TC 
TC 

CAF 

INDEX 

AD 

AD 

INDEX 

TS 

XCH 

AD 
TS 

CCS 
TC 



WL_AT_taskPtr 

WLnumTasks 

WL_AT_loopCnt 

ZERO 

«L_AT_taskPtr 

TSKADDR 

A 

* + 2 

WL_AT_schTsk 



loop for number of tasks 



end of list? 

>0 no, so keep going 

+0 yes, add the new task 



ZERO 

»L_AT_taskPtr 

TSKTIME 

WLATtimeLeft ; time-out = time-out + t imcLc ft 

WL_AT_taskPtr 

TSKTIME 



WL_AT_taskPtr 

WL_taskRecSize 

»L_AT_taskPtr 

WL_AT_loopCnt 
WL_AT_loop 



bump task pointer back 1 record 



done fixing the times? 
not yet 



Now that the tasks all share the same epoch, add the new task to the 
list and call the scheduler to schedule the next task. 



«L_AT_schTsk 



02333 


2333 


3 


1 


2050 





02334 


2334 


6 





0102 


1 


02335 


2335 


5 





0122 





02336 


2336 


2 





0100 


1 


02331 


2331 


3 





0000 


1 


02340 


2340 


5 





0123 


1 


02341 


2341 





1 


2413 





02342 


2342 





1 


2411 


1 


02343 


2343 


3 





0100 





02344 


2344 


6 


1 


2051 


1 


02345 


2345 


5 





0001 





02346 


2346 








0000 






WL_AT_done 



EQV 


* 


CAF 


ZERO 


AD 


WL AT newTime 


TS 


WL_IS_newTime ; 


INDEX 


WL_AT_saveQ ; 


CAF 





TS 


WL_IS_newAddr ; 


TCR 


WLinsert ; 


TCR 


WL_schedTask ; 


EQV 


* 


XCH 


WL_A T_saveQ 


AD 


ONE 


TS 


Q ) 


RETURN 





set time field in new task record 
indirectly address WLATsaveQ 
set addr field in new task record 
add new task to task list 
schedule the next task 

restore return address 



WL_TIME3task - T3 TIMEOUT 



Perform WAITLIST activities when TIME3 times-out. Called by the 
T3 interrupt handler . 



«L_TIME3task 



02341 
02350 
02351 
02352 



2341 3 0, 0001 

2350 5 0, 0105 

2351 3 0, 0015 

2352 5 0, 0106 



2353 1,2362 1 



2354 1,2411 1 



EQV 
XCH 
TS 
XCH 

TS 



WL_T3_saveQ 

BANK 

»L_T3_oldBank 



save return address 
save current bank 



Execute all timed-out tasks. 

TCR WL_runTasks 



Set up TIME3 to overflow at the next task's time-out. 
Adjust the time-outs for all remaining tasks. 



WL_schedTask 



02355 2355 3 0, 0106 

02356 2356 5 0, 0015 
02351 2351 3 0, 0105 

02360 2360 5 0, 0001 

02361 2361 0, 0000 



XCH 

TS 

XCH 

TS 

RETURN 



WL_T3_oldBank 

BANK ; restore previous bank 

WL_T3_saveQ 

Q ; restore return address 



WL_runTasks - ROW TIMED-OVT TASK(S) 



Runs all tasks timed-out on WLtaskList . Tasks are removed 
from the list before they are run. 



02362 
02363 



WL_runTasks 



2362 3 

2363 5 



0, 0001 
0, 0113 1 



EQV 
XCH 

TS 



WL_RT_saveQ 



save return address 



,' loop, checking the task on the front of the list . If it is 
; timed out, remove it from the list and run it . 



WL_RT_loop 



02364 


2364 


3 


1 


2050 





02365 


2365 


2 


1 


2175 


1 


02366 


2366 


6 





0000 


1 


02367 


2367 


1 





0000 





02370 


2370 





1 


2414 


1 


02371 


2371 





1 


2373 


1 


02372 


2372 





1 


2373 


1 



EQV 


* 


CAF 


ZERO 


INDEX 


WL tskLstStart 


AD 


TSKTIME 


CCS 


A 


TC 


WL RT done 


TC 


*+2 


TC 


* + l 



; task timed out? 

; >0 no, so we are done 

; +0 

; <0 



This task has timed out. so run it. 



02373 
02374 



2373 
23 74 5 



1, 2565 
0, 0114 



TCR 
TS 



WLremove 
WL_RT_runAddr 



remove task from list 

save 14-bit address of task to run 



The task address is always 14-bit, so check whether the address falls 
within erasable or fixed- fixed memory . If so, use it as-is; otherwise , 
set the bank register and change the address to 12-bit. 



02375 


2375 


4 





0000 











COM 




02376 


2376 


6 


1 


2102 











AD 


bankAddr 


02377 


2377 


1 





0000 











CCS 


A 


02400 


2400 





1 


2411 


1 








TC 


WL_RT_runIt 


02401 


2401 





1 


2403 


1 








TC 


*+2 


02402 


2402 





1 


2403 


1 








TC 


* + l 


02403 


2403 


3 


1 


2050 











CAF 


ZERO 


02404 


2404 


6 





0114 











AD 


WL_RT_runAddr 


02405 


2405 


5 





0015 











TS 


BANK 


02406 


2406 


7 


1 


2103 











MASK 


lowAddr 


02407 


2407 


6 


1 


2102 











AD 


bankAddr 


02410 


2410 


5 





0114 





WL_ 


_RT_ 


runlt 


TS 
EQV 


WL_RT_runAddr 

* 


02411 


2411 


2 





0114 


1 








INDEX 


WL_RT_runAddr 


02412 


2412 








0000 


1 








TC 

















TASKOVER 


EQV 


* 


02413 


2413 





1 


2364 


1 


WL_ 


_RT_ 


done 


TC 
EQV 


WL_RT_loop 

* 


02414 


2414 


3 





0113 


1 








XCH 


WL_RT_saveQ 


02415 


2415 


5 





0001 











TS 


Q 


02416 


2416 








0000 











RETURN 





-(14bitAddr) +%60 

task is bank addressed? 
>0 no , just run it , as is 
+ yes 
<0 yes 



set the bank 



get lowest 1 O-bi ts of address 

set bits 11, 12 for fixed— switchable 



apply indirect address to next instr . 
run the task 



task ret urns here 
check next task on list 



restore return address 



WL_schedTask - SCHEDULE NEXT TASK 

Schedule task on the front of list for the next time-out . Adjust the 
time-out for all other tasks on the list , so they contain the remaining 
time after the next timeout . 



WL_schedTask 



02417 2417 3 0, 0001 

02420 2420 5 0, 0107 1 

02421 2421 3 1,2050 

02422 2422 2 1,2175 1 

02423 2423 6 0, 0001 

02424 2424 1 0, 0000 

02425 2425 1,2427 1 

02426 2426 1,2466 1 

02427 2427 3 1,2050 

02430 2430 2 1,2175 1 

02431 2431 6 0, 0000 1 

02432 2432 5 0, 0111 



EQV 


* 


XCH 


e 


TS 


WL_ ST_saveQ 


CAF 


ZERO 


INDEX 


WL tskLstStart 


AD 


TSKADDR 


CCS 


A 


TC 


*+2 


TC 


«L_ST_noTask 


CAF 


ZERO 


INDEX 


ML tskLstStart 


AD 


TSKTIME 


TS 


WL ST newTime 



save ret urn address 



; task scheduled? 

; >0 yes 

; +0 no , so we are done 



save the new task ' s time-out 



Iterate through all tasks on the list . Subtract the time-out time 
from each task . (The 1st task on the list will now have a time-out 
of zero) 



02433 2433 3 1,2175 

02434 2434 5 0, 0110 1 

02435 2435 3 1,2177 1 

02436 2436 5 0, 0112 

02437 2437 3 1,2050 

02440 2440 2 0, 0110 

02441 2441 6 0, 0001 



NL_ST_loop 



CAF 


WL tskLstStart 


TS 


WL_ST_taskPtr 


CAF 


WL numTasks 


EQV 


* 


TS 


WL_ST_loopCnt 


CAF 


ZERO 


INDEX 


WL ST taskPtr 


AD 


TSKADDR 



set pointer to front of list 



loop for number of tasks 



02442 


2442 


1 





0000 





02443 


2443 





1 


2445 





02444 


2444 





1 


24 61 





02445 


2445 


3 


1 


2050 





02446 


2446 


2 





0110 





02447 


2447 


6 





0000 


1 


02450 


2450 


2 





0000 


1 


02451 


2451 


6 





0111 





02452 


2 4 52 


2 





0110 





02453 


2453 


5 





0000 


1 


02454 


2454 


3 





0110 


1 


02455 


2455 


6 


1 


2174 


1 


02456 


2456 


5 





0110 


1 


02451 


2451 


1 





0112 


1 


02460 


2460 





1 


2436 


1 



CCS 

TC 
TC 

CAF 

INDEX 

AD 

EXTEND 

SU 

INDEX 

TS 

XCH 

AD 
TS 

CCS 
TC 



Sst TIME3 to 
of the list : 



overflow 
TIME3 = f 



A ; end of list? 

*+2 ; >0 no, so keep going 

WL_ST_setT3 ; +0 yes, set TIME3 

ZERO 

WL_ST_taskPtr 

TSKTIME 

WLSTnewTime ; time-out = time-out - newtime 

WL_ST_taskPtr 

TSKTIME 

WLSTtaskPtr ; bump task pointer back 1 record 

WL_taskRecSize 

HL_ST_taskPtr 

WLSTloopCnt ; done fixing the times? 
WL_ST_loop ; not yet 

at the time-out of the task on the front 
31111 - «L_ST_newT ime + 1 



«L_ST_setT3 



02461 
02 4 62 
02463 
02464 
02465 



2461 4 

2 4 62 6 

24 63 6 

2464 5 

24 65 



0111 1 
2201 
2051 1 
0031 
2410 



EQV 

cs 

AD 
AD 
TS 
TC 



WL_ST_newTime 

WLmaxVal 

ONE 

TIME3 ; overflow at new time-out time 

WL_ST_done 



WL_ST_noTask 



02466 
02461 



02410 
02411 
02412 



2466 
2461 



2410 
2411 
2 412 



2203 1 
0031 



«L_ST_done 



0101 1 
0001 
0000 



EQV 

CAF 
TS 

EQV 
XCH 
TS 
RETURN 



WL_maxTimeOut 

TIME3 ; nothing scheduled, reset the clock 



WL_ ST_saveQ 
Q 



restore return address 



WL_insert - INSERT TASK INTO SORTED LIST 

Insert a task record into the sorted list. Vse ' WLISnewTime ' ar. 
' WLISnewAddr ' to set the fields of record to be inserted. 
Performs an insertion sort, with the records sorted by time. 
Lowest times are at the front of the list. If several records 
have the same time, the records inserted first will appear first 
in the list. NIL records have a time of NOTASK and a address 
of positive zero. 













WLinsert 


02413 


2413 


3 





0001 





02414 


2414 


5 





0124 





02415 


2415 


3 


1 


2116 





02416 


2416 


5 





0125 


1 


02411 


2411 


2 





0000 


1 


02500 


2500 


6 


1 


2114 


1 


02501 


2501 


5 





0126 


1 


02502 


2502 


3 


1 


2050 





02503 


2503 


2 





0125 





02504 


2504 


6 





0001 





02505 


2505 


1 





0000 





02506 


2506 





1 


2562 


1 



EQV 
XCH 

TS 

CAF 
TS 

EXTEND 

SU 
TS 

CAF 
INDEX 

AD 

CCS 

TC 



WL_IS_saveQ 



«L_tskLstEnd 
WL_IS_taskPtr 



save return address 

set pointer to back of list 



WLtaskRecSize ; set pointer to rec in front of it 
WL_IS_taskPtr2 



ZERO 

HL_IS_taskPtr 

TSKADDR 

A 

WL_IS_done 



list full? 
>0 yes 



Work from the back of the list to the front, pushing each record 
to the back until the insertion point is found. 



02501 


2501 


3 


1 


2200 


1 


02510 


2510 


5 





0121 





02511 


2511 


3 


1 


2050 





02512 


2512 


2 





0126 





02513 


2513 


6 





0001 





02514 


2514 


1 





0000 





02515 


2515 





1 


2511 





02516 


2516 





1 


2541 






WL_IS_loop 



CAF 
EQV 
TS 

CAF 
INDEX 

AD 
CCS 
TC 
TC 



WLnumTasksl ; loop for number of tasks minus 1 

# 

«L_IS_loopCnt 

ZERO 

»L_IS_taskPtr2 

TSKADDR 

A ; previous record is NIL? 

*+2 ; no, so check it 

WLISbumpPtr ; yes, so skip to next record 



; Is this the insertion point? 



02511 
02520 
02521 



2511 4 

2520 2 

2521 6 



0, 0122 1 
0, 0126 
0, 0000 1 



CS 
INDEX 

AD 



WL_I S_newT ime 

WL_IS_taskPtr2 

TSKTIME 



02522 
02523 
02524 
02525 
02526 



2522 1 

2523 

2524 

2525 

2526 



0, 0000 

1,2527 

1,2552 1 

1,2552 1 

1,2552 1 



CCS 


A , 


found insertion point ? 


TC 


* + 4 


>0 no , keep checking 


TC 


WL_IS_insRBC , 


+ yes 


TC 


WL_IS_insRec , 


<0 yes 


TC 


WL_IS_insRec , 


— yes 



; No, bump the record toward the back of the list. 



02527 
02530 
02531 
02532 
02533 



2527 3 

2530 2 

2531 6 

2532 2 

2533 5 



1,2050 

0, 0126 

0, 0000 1 

0, 0125 

0, 0000 1 



CAF 

INDEX 

AD 

INDEX 

TS 



ZERO 

WL_IS_taskPtr2 

TSKTIME 

WL_IS_taskPtr 

TSKTIME 



copy time field 



02534 
02535 
02536 
02537 
02540 



2534 3 

2535 2 

2536 6 

2537 2 
2540 5 



1,2050 

0, 0126 

0, 0001 

0, 0125 

0, 0001 



CAF 

INDEX 

AD 

INDEX 

TS 



ZERO 

WL_IS_taskPtr2 

TSKADDR 

WL_IS_taskPtr 

TSKADDR 



copy address field 



WL_IS_bumpPtr 



02541 
02542 
02543 
02544 



2541 3 

2542 2 

2543 6 

2544 5 



0, 0125 1 

0, 0000 1 

1,2174 1 

0, 0125 1 



EQV 
XCH 
EXTEND 

su 

TS 



WL_IS_taskPtr 



WL_taskRecSize 
HL_IS_taskPtr 



bump task pointer forward 1 record 



02545 
02546 
02547 



2545 2 

2546 6 

2547 5 



0, 0000 1 
1,2174 1 
0, 0126 1 



EXTEND 

SU 

TS 



WLtaskRecSize ; set pointer to record in front of it 
«L_IS_taskPtr2 



02550 
02551 



2550 1 

2551 



0, 0127 1 
1,2510 1 



CCS 
TC 



WLISloopCnt ; done bumping tasks backward? 
WLISloop ; not yet 



Insert new record . 



WL_IS_insRec 



02552 
02553 
02554 
02555 



2552 3 

2553 6 

2554 2 

2555 5 



1, 2050 
0, 0122 
0, 0125 
0, 0000 



EQV 
CAF 
AD 
INDEX 

TS 



ZERO 

WL_IS_newTime 
HL_IS_taskPtr 
TSKTIME 



set time field 



02556 
02557 
02560 
02561 



2556 3 

2557 6 

2560 2 

2561 5 



1,2050 
0, 0123 1 
0, 0125 
0, 0001 



CAF 
AD 

INDEX 
TS 



ZERO 

WL_IS_newAddr 
WL_IS_taskPtr 
TSKADDR 



set address field 



02562 
02563 
02564 



2562 3 

2563 5 

2564 



«L_IS_done 



0, 0124 
0, 0001 
0, 0000 



EQV 
XCH 
TS 
RETURN 



WL_IS_saveQ 
Q 



restore return address 



WL_remove - REMOVE TASK FROM FRONT OF LIST 

Returns the address of the task in register A. If the list is 
empty, it returns zero in A. If a task is removed from the list, 
the remaining tasks are moved up to the front. 



WLremove 



02565 2565 3 0, 0001 

02566 2566 5 0, 0115 1 



02567 2567 3 1,2175 

02570 2570 5 0, 0116 1 



EQV 
XCH 

TS 

CAF 
TS 



«L_RM_saveQ 



WL_tskLstStart 
WL_RM_taskPtr 



save return address 

set pointer to front of list 



02571 
02572 



2571 6 1,2174 1 

2572 5 0, 0117 



AD 
TS 



WLtaskRecSize ; set pointer to next rec behind it 
WL_RM_taskPtr2 



Save the address of record at the front of the list. 



02573 2573 3 1,2050 

02574 2574 2 0, 0116 

02575 2575 6 0,0001 

02576 2576 5 0, 0121 

02577 2577 1 0, 0000 

02600 2600 1,2602 1 

02601 2601 1,2636 



CAF 


ZERO 


INDEX 


WL RM taskPtr 


AD 


TSKADDR 


TS 


WL_RM_retval 


CCS 


A 


TC 


*+2 


TC 


ML RM done 



; get address of 1st task 

; list empty? 

; >0, no 

; +0 , yes , so exit 



Loop through the remaining records in the task list and 
bubble them up to the front . 



02602 
02603 



2602 3 1,2200 1 



WL_RM_loop 



2603 5 0, 0120 1 



CAF 
EQU 

TS 



WL_ n um Ta sksl 

* 

WL_RM_loopCnt 



loop for number of tasks minus 1 



02604 


2604 


3 


1 


2050 





02605 


2605 


2 





0111 


1 


02606 


2606 


6 





0000 


1 


02601 


2601 


2 





0116 





02 610 


2 610 


5 





0000 


1 


02611 


2 611 


3 


1 


2050 





02612 


2612 


2 





0111 


1 


02613 


2 613 


6 





0001 





02614 


2 614 


2 





0116 





02615 


2 615 


5 





0001 





02616 


2 616 


1 





0000 





02 611 


2 611 





1 


2621 





02620 


2 620 





1 


2 63 6 





02621 


2621 


3 





0116 


1 


02 622 


2 622 


6 


1 


2114 


1 


02623 


2623 


5 





0116 


1 


02 62 4 


2 62 4 


6 


1 


2114 


1 


02625 


2625 


5 





0111 





02 62 6 


2 62 6 


1 





0120 





02 621 


2 621 





1 


2603 






CAF 


ZERO 


INDEX 


WL_RM_taskPtjr2 


AD 


TSKTIME 


INDEX 


WL_RM_taskPtr 


TS 


TSKTIME 


CAF 


ZERO 


INDEX 


WL_RM_taskPtr2 


AD 


TSKADDR 


INDEX 


WL_RM_taskPtjr 


TS 


TSKADDR 


CCS 


A 


TC 


*+2 


TC 


WL_RM_done 


XCH 


«L_RM_taskPtr 


AD 


WL_taskRecSize 


TS 


«L_RM_taskPtr 


AD 


WL_taskRecSize 


TS 


WL_RM_taskPtr2 


CCS 


WL_RM_loopCnt 


TC 


WL_RM_loop 



copy time field 



copy address field 

remainder of list empty? 

>0 , no 

+ , yes , so exit 

bump task pointer back 1 record 



set pointer to record behind i t 



done bumping tasks upward? 
not yet 



Since we removed a record, the last record 
should be NIL . 



on the list 



02630 


2630 


3 


1 


2202 





02631 


2 631 


2 





0116 





02632 


2 632 


5 





0000 


1 


02633 


2 633 


3 


1 


2050 





02634 


2634 


2 





0116 





02635 


2 635 


5 





0001 





02636 


2 63 6 


3 





0115 


1 


02 631 


2 631 


5 





0001 





02640 


2 64 


3 





0121 





02641 


2641 








0000 






WL_RM_done 



CAF 


WLmaxDelay 


INDEX 


WL RM taskPtr 


TS 


TSKTIME 


CAF 


ZERO 


INDEX 


WL RM taskPtr 


TS 


TSKADDR 


EQV 


* 


XCH 


WL_RM_saveQ 


TS 


Q 


XCH 


WL RM retval 


RETURN 




INCL 


exec f . asm 



set time field to NIL 



set address field to NIL 



restore return address 
return task address in A 



EXEC (file : exec_f. asm) 



Version : 
Author : 
Date: 



1 . 

John Pultorak 

04/26/2002 



PURPOSE: 

Constants and source code for EXEC . 

No n -preemptive multitasking routines , originally implemented by J . H . 
Laning, Jr . for AGC3 and later adapted for AGC4 . Briefly discussed in 
R-393 , which gives some of the software interfaces into the 
multitasking . This is my own recreation , and it only incl udes the job 
scheduling . The original EXEC also incl udes memory management for the 
eraseable memory; this is not reproduced here . 

Overview : scheduled elements are called 'jobs ' . Up to 7 jobs can be 
concurrently scheduled . An 8th ' dummy ' job is always scheduled . Each 
job has an assigned priority ( 1 —n, where 1 is the lowest priori ty) . 
The highest priority job always executes . When that job terminates , 
the next highest priori ty job is selected for execution . If several 
jobs have the same priority, they are executed round- rob in . 

A job is scheduled for execution by calling ' NOV AC ' and 

furnishing the job priori ty and starting address . 

L XCH JOB_PRIORITY 

L + l TC NOVAC 

L+2 DS JOB_ADDRESS 

L+3 . . . execution resumes here 

JOB_PRIORITY = a positive integer from %3 - %37776 where a higher number 
indi cates higher priority . Priorities below 3 are reserved for 
internal EXEC use : 0=no job, l=s looping job, 2= dummy job . 
Priori ty %37777 is also reserved for woken jobs . 

JOB_ADDRESS = starting address of the job. 

**** WARNING **** If NOVAC is not being called from an interrupt, be sure to 
inhibit interrupts before calling it to protect the integri ty of the list . 

When a new job is added, the new job ' s record (core set ) is 
initialized with a copy of the current job ' s record (MP AC and other 
parameters ) , except for the new job priority and address , whi ch are 
set by the ' add job ' routine . Therefore , data can be stored into 



MP AC prior to starting a new job as a method of passing data into 
the new job. 

Jobs terminate themselves by jumping to ENDOFJOB . This removes them 
from the EXEC scheduler : 
TC ENDOFJOB 

Jobs can suspend themselves (yield to a higher priori ty job) by 
executing the following sequence . If there is no other job of 
higher priori ty, executing of the yielded job resumes at L + 2 

L CCS new Job 

L + l TC CHANG1 

L+2 . . . execution resumes here 

If there is no other job of equal or higher priority, the branch is 
not taken . 

Jobs can put themselves to sleep by calling JOBSLEEP . The address 
where execution of the sleeping job should resume must be in register 
A before calling JOBSLEEP . The job will remain sleeping until JOBWAKE 
is called : 

L CAF WAKECADR 

L+l TC JOBSLEEP 

(does not return from JOBSLEEP) 

Sleeping jobs are awakened by calling JOBWAKE . The address where 
execution of the sleeping job should resume must be in register A . 
JOBWAKE ret urns to the address after the call and execution continues 
for the calling job . The job that was sleeping will now be the next 
job to execute . 

L CAF WAKECADR 

L+l TC JOBWAKE 

L+2 . . . execution continues here 



02642 


2642 


02643 


2643 


02644 


2 64 4 


02645 


2645 


02 64 6 


2 64 6 


02647 


2 647 


02650 


2650 


02651 


2 651 


02 652 


2 652 


02653 


2 653 


02654 


2654 


02655 


2655 



3 7777 1 EX_WAKE_PRIO DS 

00002 EX_DUMMY_PRIO DS 

00001 EX_SLEEP_PRIO DS 

00130 EX_jobCurStart DS 

00015 EX_jobRecSize DS 

00300 1 EX_jobLstStart DS 

00307 EX_jobLstEnd DS 

00306 1 EX_jobLstEndl DS 

00006 1 EX_numJobs DS 

00005 1 EX_numJobsl DS 



%37777 ; waking job priority (highest) 

%00002 ; dummy job priority (lowest runnable ) 

%00001 ; sleeping job; must be < dummy 

EXcurrentJob ; starting address for current job 

JRECSZ ; size of a job record (words) 

EX_ jobList ; starting address for jobList 

MAXJOBS+EX_jobList 

MAX J0BS-1+EX_ jobList 

MAXJOBS-1 ; init loop counter for all jobs 

MAXJOBS-2 ; init loop counter for all jobs - 1 



; enumerated types for setting change flag: 
00001 EX_changeJob DS CHGJOB ; change job 

00000 1 EX_keepJob DS KEEPJOB ; keep job 



EX_exec 



EXEC SCHEDULER 



Executes the highest priority job. Enables interrupts while the job is 
running . Once called, this function never returns . 



EX_exec EQU * ; entry point 

; Add a dummy job (lowest priority) that never terminates. 



02656 
02 65 7 
02660 
02661 



2 65 6 3 
2 65 7 
2660 
2661 2 



1,2643 1 

1,3162 1 

03510 

0, 0000 



CAF EX_DUMMY_PRIO ; job priority 

TC NOVAC 

DS dumjob ; 14 bit job address 

INHINT ; inhibit RUPTs enab by addjob 



; Get the next job to run. 



EX_MN_ find Job EQV 
1,3410 1 TCR 



EXremove 



; compare priority of current job to priority of next waiting job. 
; If next job has same priority as current job, set the newjob 
; flag so they will be scheduled round-robin . 



02663 



2663 4 0, 0143 



CS 



PRIORITY 



get priority of current job 



02664 
02665 
02666 



2664 2 
2 665 2 
2666 6 



1,2647 1 
0, 0000 
0, 0143 1 



INDEX EX_jobLstStart 

INDEX 

AD PRIORITY ; compare with priority of next job 



02667 
02610 
02611 
02612 
02613 

02614 
02615 
02616 



02611 
02100 



2661 1 

2610 

2611 

2612 

2613 

2614 3 

2615 5 

2616 



2611 3 
2100 5 



0, 0000 

1,2611 

1,2611 

1,2614 

1,2611 

1,2655 

0, 0301 

1,2101 

EX_MN_setFlg 

1,2654 1 

0, 0301 



CCS 


A 


TC 


EX_MN_setFlg 


TC 


EX_MN_setFlg 


TC 


*+2 


TC 


EX_MN_setFlg 


CAF 


EX_keepJob 


TS 


new Job 


TC 


EX_MN_runJob 


EQV 


* 


CAF 


EXchangeJob 


TS 


new Job 



next job has equal priority? 

>0 (error ! ) 

+0 yes, set flag 

<0 no , clear flag 

-0 yes, set flag 

clear change flag 



set change flag 



; Start the job . Interrupts are reenabled before ' EX_curJobPtr ' is 

; referenced, but the interrupts can only call ' NOVAC ' which does 

; not change ' EX_curJobPtr ' . 

; The job address is always 1 4— hi t , so check whether the address falls 

; within erasable or fixed- fixed memory . If so , use it as—is; otherwise , 

; set the bank register and change the address to 12 -bit . 



02101 


2101 


3 


1 


2050 





02102 


2102 


6 





0140 


1 


02103 


2103 


5 





0333 


1 


02104 


2104 


4 





0000 





02105 


2105 


6 


1 


2102 





02106 


2106 


1 





0000 





02101 


2101 





1 


212 





02110 


2110 





1 


2112 


1 


02111 


2111 





1 


2112 


1 


02112 


2112 


3 


1 


2050 





02113 


2113 


6 





0333 


1 


02114 


2114 


5 





0015 





02115 


2115 


7 


1 


2103 





02116 


2116 


6 


1 


2102 





02111 


2111 


5 





0333 


1 


02120 


212 


2 





0000 


1 


02121 


2121 


2 





0333 





02122 


2122 








0000 


1 



EX_MN_runIt 



CAF 


ZERO 


AD 


LOC 


TS 


EX_MN_runAddr 


COM 




AD 


bankAddr ,* 


CCS 


A ; 


TC 


EX_MN_runIt 


TC 


*+2 


TC 


* + l 


CAF 


ZERO 


AD 


EX_MN_runAddr 


TS 


BANK ; 


MASK 


lowAddr ; 


AD 


bankAddr ; 


TS 


EX_MN_runAddr 


EQV 


* 


RELINT 


; 


INDEX 


EX_MN_runAddr 


TC 


; 



save job ' s 14 bit address 



- (14bitAddr) +%60 
job is bank addressed? 
>0 no , just run it , as is 
+ yes 
<0 yes 



set the bank 



get lowest 1 O-bi ts of address 

set bits 11, 12 for fixed— switchable 



; enable interrupts 

apply indirect address to next instr. 
; run the job 



; Job is terminated . Delete the job record . 







ENDOFJOB 


EQV 


02123 


2123 2 


0, 0000 


INHINT 


02124 


2124 


1,2662 1 


TC 



; inhibit interr up t s 
EX_MN_findJob ; get next job 



; job is sleeping . Keep the job record, but drop the priori ty so it 

; is below the priori ty of the dummy job . This will keep the job 

; from running until JOBWAKE is called . The address where it should 

; resume running when awoken is in register A . 















JOBSLEEP 


EQV 


* 


02125 


2125 


2 





0000 







INHINT 




0212 6 


212 6 


5 





0140 


1 




TS 


LOC 


02121 


2121 


3 


1 


2644 







CAF 


EX_SLEEP_PRIO 


02130 


2130 


5 





0143 


1 




TS 


PRIORITY 


02131 


2131 


5 





0346 







TS 


EX_IS_newPrio 


02132 


2132 





1 


2151 







TC 


EX_MN_mvRec 



; inhibit interr up t s 
■ save restart address 



; set sleeping priority 



finish up 



; Job is suspended . Keep the job record, but update the address , so 
; execution will resume at the point after suspension . 













CHANG 


02133 


2133 


2 





0000 





02134 


2134 


3 





0001 





02135 


2135 


5 





0333 


1 


02136 


2136 


4 





0000 





02131 


2131 


6 


1 


2102 





02140 


2140 


1 





0000 





02141 


2141 





1 


215 


1 


02142 


2142 





1 


2144 


1 


02143 


2143 





1 


2144 


1 


02144 


2144 


4 


1 


2102 


1 


02145 


2145 


6 





0333 


1 



EQV 

INHINT 

XCH 

TS 

COM 

AD 

CCS 

TC 

TC 

TC 

CS 
AD 



EX_MN_runAddr 



bankAddr 

A 

EX_MN_notBank 

*+2 

* + l 

bankAddr 
EX_MN_runAddr 



Inhibit interrupts 

save job's 12 bit restart address 



- (12bitAddr) +%60 00 

job is bank addressed? 

>0 no, just save it, as is 

+ yes 

<0 yes 



12bitAddr 



%6000 



02746 


2146 


6 





0015 





02141 


2141 





1 


2152 





02150 


2150 


3 


1 


2050 





02151 


2151 


6 





0333 


1 


02152 


2152 


5 





0140 


1 


02153 


2153 


3 


1 


2050 





02154 


2154 


6 





0144 





02155 


2155 


5 





0143 


1 


02156 


2156 


5 





0346 






02151 
02160 



EX_MN_notBank EQU 



EX_MN_saveIt 



AD 


BANK 


TC 


EX_MN_saveIt 


EQV 


* 


CAF 


ZERO 


AD 


EX_MN_runAddr 


EQV 


* 


TS 


LOC 


CAF 


ZERO 


AD 


JOBPRIOBASE 


TS 


PRIORITY 


TS 


EX IS newPrio 



; make it a 1 4— bit address 



get restart address 



; save job ' s new starting address 



restore job priori ty to nominal value 



; given the priority, find the insertion point in the list . Copy 
; the current job into the list at the correct insertion point . 



EX_MN_mvRec 



2757 
2760 5 



1, 3332 
0, 0352 



EQU 

TCR 
TS 



EX_findIns 

EX_IS_jobPtr ; save address of insertion point 



; copy all fields in current record to list 



02161 


2161 


3 


1 


2646 


1 


02162 


2162 


5 





0334 





02163 


2163 


1 





0334 


1 


02164 


2164 





1 


2166 


1 


02165 


2165 





1 


3002 





02166 


2166 


5 





0334 






EX_MN_loop3 



XCH 


EX_jobRecSize 




TS 


EX_MN_f±eld 




EQV 


* 




CCS 


EX MN field 


; done? 


TC 


*+2 


; not yet 


TC 


EX MN done3 


; yes 


TS 


EX MN field 





copy this field to list 



02161 


2161 


3 


1 


2050 





02110 


2110 


2 





0352 


1 


02111 


2111 


6 





0000 


1 


02112 


2112 


6 





0334 





02113 


2113 


5 





0335 


1 


02114 


2114 


3 


1 


2050 





02115 


2115 


2 





0334 


1 


02116 


2116 


6 





0130 





02111 


2111 


2 





0335 





03000 


3000 


5 





0130 





03001 


3001 





1 


2163 


1 


03002 


3002 





1 


2662 


1 



EX_MN_done3 



CAF 


ZERO 


INDEX 


EX_IS_jobPtr 


AD 





AD 


EX MN field 


TS 


EX_MN_findx 


CAF 


ZERO 


INDEX 


EX MN field 


AD 


EX cur rent Job 


INDEX 


EX MN findx 


TS 


EX current Job 



EQU 

TC 



EX_MN_loop3 



EX_MN_findJob 



get index to record in list 
add field displacement 
save index to field in list 



get field from current job 
c opy fi eld to list 



get next job 



JOBNAKE - wake up the job identified by address in register A 

Search jobList for a job wi th address mat ching the address in A . 
If found, bump the priori ty up to the highest level, so the job 
will be the next to run . 

This is a 'public ' function . It assumes that interrupts are already 
disabled before it is called . Disabling interrupts during JOBWAKE 
is necessary to preserve the integrity of the joblist . 



03003 3003 5 0, 0312 1 

03004 3004 3 0, 0001 

03005 3005 5 0, 0310 



MAKE 


EQV 


* 




TS 


EX J« CADR 




XCH 


Q 




TS 


EX_JW_saveQ 



03006 3006 3 1,2050 

03001 3001 5 0, 0313 



03010 3010 3 1,2651 1 

03011 3011 5 0, 0314 1 



03012 3012 6 1,2046 1 

03013 3013 5 0, 0315 



03014 3014 3 1,2653 



; save job address 

; save return address 



; Search the joblist for the job to wake (job address matches 
; EX_JW_CADR) . 



EX_JW_loop 



03015 3015 5 0, 0311 1 



CAF 


ZERO 


TS 


EX_JW_foundit 


CAF 


EX_jobLstEndl 


TS 


EX_JW_jobPtr 


AD 


NEG1 


TS 


EX_JW_jobPtr2 


CAF 


EX numjobsl 


EQV 


* 


TS 


EX_JW_loopCnt 



clear 'found it ' flag 

set pointer to back of list 

set pointer to rec in front of it 

loop for number of jobs minus 1 



; if foundit=0 , job has not been found yet . Keep searching toward 



the front of the list. 
if found! t=l , the job has been found and removed from the list . 
push all jobs in front of the removed job one step to the back 
to fill in the gap and to make room at the front of the list 
for the awoken job . 



03016 
03017 



3016 1 

3017 



0, 0313 

1, 3035 



CCS 
TC 



EX_JW_foundit 
EX_JW_moveRec 



already found job to wake ? 
>0, yes 



Is this the job ? 



03020 


3020 


4 





0312 





03021 


3021 


2 





0314 





03022 


3022 


2 





0000 





03023 


3023 


6 





0140 


1 


03024 


3024 


1 





0000 





03025 


3025 





1 


3041 


1 


03026 


3026 





1 


3030 


1 


03021 


3021 





1 


3041 


1 



cs 


EX_JW_CADR 






INDEX 


EX_JW_jobPtr 






INDEX 









AD 


LOC 






CCS 


A 


; found job to 


wake 


TC 


EX_ JW_b umpP t r 


; > , no 




TC 


*+2 


; +0, yes 




TC 


EX_JW_bumpPtr 


; <0, no 





found the job to wake. 



03030 
03031 



3030 3 

3031 5 



1, 2051 
0, 0313 



CAF 
TS 



ONE 
EX_JW_found±t 



'found it ' flag 



save record index for awoken job 



03032 


3032 


2 


, 


0314 





03033 


3033 


3 


0, 


0000 


1 


03034 


3034 


5 


0, 


0316 






INDEX 


EX_JW_jobPtr 


XCH 





TS 


EX_JW_fndIndx 



index for awoken job 



bump prior record back 















EX_JW_ 


moveRec 


EQO 


* 


03035 


3035 


2 





0315 


1 






INDEX 


EX_JW_jobPtr2 


03036 


3036 


3 





0000 


1 






XCH 





03031 


3031 


2 





0314 









INDEX 


EX_JW_jobPtr 


03040 


3040 


3 





0000 


1 


EX_JW_ 


bumpPtr 


XCH 
EQV 




* 


03041 


3041 


3 





0314 


1 






XCH 


EX_JW_jobPtr 


03042 


3042 


6 


1 


2046 


1 






AD 


NEG1 


03043 


3043 


5 





0314 


1 






TS 


EX_JW_jobPtr 


03044 


3044 


6 


1 


2046 


1 






AD 


NEG1 


03045 


3045 


5 





0315 









TS 


EX_JW_jobPtr2 


03046 


3046 


1 





0311 









CCS 


EX_JW_loopCnt 


03041 


3041 





1 


3015 









TC 


EX_JW_loop 


03050 


3050 


1 





0313 


1 






CCS 


EX_JW_foundit 


03051 


3051 





1 


3053 


1 






TC 


*+2 


03052 


3052 





1 


3056 


1 






TC 


EX_JW_done 


03053 


3053 


3 





0316 









XCH 


EX_JW_fndIndx 


03054 


3054 


2 


1 


2641 


1 






INDEX 


EX_jobLstStart 


03055 


3055 


5 





0000 


1 






TS 






bump job pointer forward 1 record 



set pointer to record in front of it 



; done bumping jobs backward? 

; not yet 

; found job to wake ? 

; >0, yes 

; no 

; put awoken job on front of list 



EX_JW_done 



EQU 



Is the awoken job at the front of the list? 

(If it was already there before we started searching, ' foundlt ' 

will be false (0) so we need to make this test) . 



03056 


3056 


4 





0312 





03051 


3051 


2 


1 


2641 


1 


03060 


3060 


2 





0000 





03061 


3061 


6 





0140 


1 


03062 


3062 


1 





0000 





03063 


3063 





1 


3014 


1 


03064 


3064 





1 


3066 


1 


03065 


3065 





1 


3014 


1 



cs 


EX_JW_CADR 










INDEX 


EX_jobLstStart 










INDEX 













AD 


LOC 










CCS 


A 


woken job 


at 


front 


of list? 


TC 


EX_JW_return 


>0 , no 








TC 


*+2 


+ 0, yes 








TC 


EX_JW_return 


<0 , no 









set awoken priori ty and change job flag 



03066 


3066 


3 


1 


2642 





03061 


3061 


2 


1 


2641 


1 


03010 


3010 


2 





0000 





03011 


3011 


5 





0143 


1 


03012 


3012 


3 


1 


2 65 4 


1 


03013 


3013 


5 





0301 





03014 


3014 








0310 






EX_JW_return 



CAF 

INDEX 

INDEX 

TS 

CAF 

TS 

EQV 

TC 



EX_WAKE_PRIO 

EX_jobLstStart 



PRIORITY ; set waking priority 



EXchangeJob 
new Job 



EX_JW_saveQ 



; set the change flag 



SPVAC - ADD A JOB TO THE JOBLIST 

Similar to NOVAC , but used by VERB 37. The job CADR is in register A. 
The job priority is in NEWPRIO . Return to the address in Q. 

NOVAC differs from SPVAC, because NOVAC has the job CADR at the address 
in Q, and returns to Q+l . Also, in NOVAC the job priority is in A. 

This is a 'public' function. It can be called from a job 
or from an interrupt. 



03075 
03076 
03077 



3075 5 

3076 3 

3077 5 



0, 0350 1 
0, 0001 
0, 0317 1 



EQV * 

TS EXISnewLoc ; store new job address 

XCH Q 

TS EXAJsaveQ ; save return address 



add new job to end of list 



03100 


3100 


3 


1 


2050 





03101 


3101 


6 





0360 


1 


03102 


3102 


5 





0346 





03103 


3103 


5 





0347 


1 


03104 


3104 





1 


3332 





03105 


3105 


5 





0352 






CAF 

AD 
TS 
TS 

TCR 
TS 



ZERO 

NEWPRIO 

EX_IS_newPrio 

EX_IS_newPrioB ; store new job priori ty 



EX_findIns 
EX_IS_jobPtr 



; find insertion point in list 

; save address of insertion point 



; Initialize relevant fields in new job . The remaining fields 
; should already be zeroed . 



; Initialize fields for new job record . New job inherits copy of 
; MP AC from current job, so copy all fields in current job to new 
; job in list 



03106 


3106 


3 


1 


2646 


1 


03107 


3107 


5 





0323 





03110 


3110 


1 





0323 


1 


03111 


3111 





1 


3113 


1 


03112 


3112 





1 


3127 





03113 


3113 


5 





0323 






EX_SP_loopl 



XCH 


EX_jobRecSize 




TS 


EX_AJ_field 




EQV 


* 




CCS 


EX A J field 


; done? 


TC 


*+2 


; not yet 


TC 


EX SP donel 


; yes 


TS 


EX A J field 





copy this field to list 



03114 


3114 


3 


1 


2050 





03115 


3115 


2 





0352 


1 


03116 


3116 


6 





0000 


1 


03117 


3117 


6 





0323 





03120 


3120 


5 





0324 


1 


03121 


3121 


3 


1 


2050 





03122 


3122 


2 





0323 


1 


03123 


3123 


6 





0130 





03124 


3124 


2 





0324 





03125 


3125 


5 





0130 





03126 


3126 





1 


3110 


1 



CAF 


ZERO 




INDEX 


EX IS 


jobPtr 


AD 







AD 


EX AJ 


field 


TS 


EX AJ 


findx 



CAF ZERO 

INDEX EX_AJ_ field 

AD EX_currentJob 

INDEX EX_AJ_ fi n dx 

TS EX_currentJob 

TC EX_SP_loopl 



; get index to record in list 

; add field displacement 

; save index to field in list 



; get field from current job 
; c opy fi eld to list 



; now, overwrite fields in the record with the priori ty 
; and location unique to this job . 



EX_SP_donel 



03127 


3127 


3 


1 


2050 





03130 


3130 


6 





0346 





03131 


3131 


2 





0352 


1 


03132 


3132 


2 





0000 





03133 


3133 


5 





0143 


1 


03134 


3134 


3 


1 


2050 





03135 


3135 


6 





0347 


1 


03136 


3136 


2 





0352 


1 


03137 


3137 


2 





0000 





03140 


3140 


5 





0144 





03141 


3141 


3 


1 


2050 





03142 


3142 


6 





0350 


1 


03143 


3143 


2 





0352 


1 


03144 


3144 


2 





0000 





03145 


3145 


5 





0140 


1 



EQV 


* 


CAF 


ZERO 


AD 


EX IS newPrio 


INDEX 


EX_IS_jobPtr 


INDEX 





TS 


PRIORITY 



CAF ZERO 

AD EX_IS_newPrioE 

INDEX EX_IS_jobPtr 

INDEX 

TS JOBPRIOBASE 

CAF ZERO 

AD EX_IS_newLoc 

INDEX EX_IS_jobPtr 

INDEX 

TS LOC 



; set priority field 



set nominal priority field 



set address field 



Set change flag if priority of new job >= priority of current job 



03146 

03147 
03150 
03151 
03152 
03153 

03154 
03155 



03156 
03151 
03160 



3154 3 

3155 5 



EX_SP_testFlg EQV 
0, 0143 



3147 6 0, 0321 1 

3150 1 0, 0000 

3151 1,3154 1 

3152 1,3154 1 

3153 1,3156 



1,2654 1 
0, 0307 



EX_SP_done2 



3156 3 0, 0317 1 

3157 5 0, 0001 
3160 0, 0000 



cs 


PRIORITY ; 


AD 


EX_AJ_jobPrio ; 


CCS 


A ; 


TC 


* + 3 


TC 


*+2 ; 


TC 


EX_SP_done2 


CAF 


EXchangeJob ; 


TS 


new Job 


EQV 


* 


XCH 


EX_AJ_saveQ 


TS 


Q 


RETURN 





get -priority of current job 

add posi tive priority of new job 

new job is highest priority? 

>0, yes 

+ 0, yes 

<0 , no, current job is higher priority 

set the change flag 



FINDVAC - not implemented 



3161 0,0001 FINDVAC 



; just ret urn 



NOVAC - ADD A JOB TO THE JOBLIST 

Search jobList for an empty slot . If found, put the new job in the 
empty slot . If the new job has the same , or higher , priority than the 
current job, set the change flag to ' CHGJOB ' (change jobs at the next 
opportunity) . 

This is a 'public ' function . It can be called from a job 
or from an interrupt . 



03162 
03163 
03164 



3162 5 

3163 3 

3164 5 



0, 0321 1 
0, 0001 
0, 0317 1 



EQU * 

TS EX_AJ_jobPrio ; save job priority 

XCH Q 

TS EX_AJ_saveQ ; save ret urn address — 1 



add new job to end of list 



03165 


3165 


3 


1 


2050 





03166 


3166 


6 





0321 


1 


03167 


3167 


5 





0346 





03170 


3170 


5 





0347 


1 


03171 


3171 


2 





0317 





03172 


3172 


3 





0000 


1 


03173 


3173 


5 





0350 


1 


03174 


3174 





1 


3332 





03175 


3175 


5 





0352 






CAF 
AD 
TS 
TS 

INDEX 
CAF 

TS 

TCR 
TS 



ZERO 

EX_AJ_jobPrio 

EX_IS_newPrio 

EX_IS_newPrioB ; store new job priori ty 

EX_AJ_saveQ ; indirectly address addJobQ 



EX_IS_newLoc ; store new job address 

EX_findIns ; find insertion point in list 

EX_IS_jobPtr ; save address of insertion point 



Ini tialize relevant fields in new job . The remaining fields 
should already be zeroed . 



; Ini tialize fields for new job record . New job inherits copy of 
; MP AC from current job , so copy all fields in current job to new 
; job in list 



03176 


3176 


3 


1 


2646 


1 


03177 


3177 


5 





0323 





03200 


3200 


1 





0323 


1 


03201 


3201 





1 


3203 





03202 


32 02 





1 


3217 





03203 


3203 


5 





0323 






EX_AJ_loopl 



XCH 


EX_jobRecSize 




TS 


EX_AJ_field 




EQV 


* 




CCS 


EX A J field 


; done? 


TC 


*+2 


; not yet 


TC 


EX AJ donel 


; yes 


TS 


EX AJ field 





copy this field to list 



03204 
03205 
03206 
03207 
03210 

03211 
03212 
03213 
03214 



3204 3 

3205 2 
32 6 6 
32 7 6 

3210 5 

3211 3 

3212 2 

3213 6 

3214 2 



1,2050 

0, 0352 1 

0, 0000 1 

0, 0323 

0, 0324 1 

1,2050 

0, 0323 1 

0, 0130 

0, 0324 



CAF 


ZERO 


INDEX 


EX_IS_jobPtr 


AD 





AD 


EX AJ field 


TS 


EX_AJ_findx 


CAF 


ZERO 


INDEX 


EX AJ field 


AD 


EX cur rent Job 



get index to record in list 
add field displacement 
save index to field in list 



get field from current job 



EX_AJ_findx 



03215 3215 5 0, 0130 



EXcurrentJob ; copy field to list 



03216 3216 1, 3200 



EX_AJ_loopl 



; now, overwrite fields in the record with the priority 
; and location unique to this job. 



EX_AJ_donel 



03211 


3211 


3 


1 


2050 





03220 


3220 


6 





0346 





03221 


3221 


2 





0352 


1 


03222 


3222 


2 





0000 





03223 


3223 


5 





0143 


1 


03224 


3224 


3 


1 


2050 





03225 


3225 


6 





0341 


1 


03226 


322 6 


2 





0352 


1 


03221 


3221 


2 





0000 





03230 


3230 


5 





0144 





03231 


3231 


3 


1 


2050 





03232 


3232 


6 





0350 


1 


03233 


3233 


2 





0352 


1 


03234 


3234 


2 





0000 





03235 


3235 


5 





0140 


1 



EQO 


* 


CAF 


ZERO 


AD 


EX IS newPrio 


INDEX 


EX_IS_jobPtr 


INDEX 





TS 


PRIORITY 



CAF ZERO 

AD EX_IS_newPrioB 

INDEX EX_IS_jobPtr 

INDEX 

TS JOBPRIOBASE 



CAF 


ZERO 


AD 


EX IS newLoc 


INDEX 


EX_IS_jobPtr 


INDEX 





TS 


LOC 



; set priority field 



set nominal priority field 



set address field 



Set change flag if priority of new job >= priority of current job 



03236 



3236 4 0, 0143 



EX_AJ_testFlg EQV 
CS 



PRIORITY 



; get -priority of current job 



03231 3231 6 0, 0321 1 

03240 3240 1 0, 0000 

03241 3241 1,3244 

03242 3242 1,3244 

03243 3243 1, 3246 1 

03244 3244 3 1,2654 1 

03245 3245 5 0, 0301 



EX_AJ_done2 



03246 3246 3 0, 0311 1 

03241 3241 6 1,2051 1 

03250 3250 5 0, 0001 

03251 3251 0, 0000 



AD 


EX_AJ_jobPrio ; 


CCS 


A ; 


TC 


* + 3 i 


TC 


*+2 


TC 


EX_AJ_done2 


CAF 


EXchangeJob ; 


TS 


new Job 


EQV 


* 


XCH 


EX_AJ_saveQ 


AD 


ONE 


TS 


Q 


RETURN 





add posi tive priority of new job 

new job is highest priority? 

>0, yes 

+0, yes 

<0 , no, current job is higher priori ty 

; set the change flag 



EX_initEX - INITIALIZE EXEC 



Ini tialize the eraseable memory segment for EXEC . Necessary in 
case the AGC is restarted . 















EX 


initEX 


EQV 


* 


03252 


3252 


3 





0001 









XCH 


Q 


03253 


3253 


5 





0325 









TS 


EX_IN_save 


03254 


3254 


3 


1 


2655 









CAF 


EX_keepJob 


03255 


3255 


5 





0301 









TS 


new Job 


03256 


3256 


3 


1 


2050 









CAF 


ZERO 


03251 


3251 


5 





0143 


1 






TS 


PRIORITY 



save return address 
clear change flag 



set current job record to NIL 



Iterate through jobList , initialize each element on the list so it 
points to its own job record . 



03260 
03261 

032 62 
03263 
03264 



3260 3 1, 

3261 5 0, 

32 62 3 1, 

32 63 6 1, 

3264 5 0, 



2641 

0321 1 

2050 

2646 1 

0330 1 



CAF EX_jobLstStart ; init pointer to start of list 

TS EX_IN_jobPtr 

CAF ZERO 

AD EX_jobRecSize 

TS EX_IN_recIndex 



3265 3 1,2652 1 



03266 

03261 
03210 
03211 
03212 
03213 

03214 
03215 



EX_IN_loopl 



3266 5 0, 0326 



3261 3 0, 

3210 2 0, 

3211 5 0, 

3212 6 1, 

3213 5 0, 

3214 3 0, 

3215 6 1, 



0330 1 

0321 

0000 1 

2646 1 

0330 1 

0321 1 

2051 1 



CAF 
EQV 
TS 

XCH 

INDEX 

TS 

AD 
TS 

XCH 

AD 



EXnumJobs 

* 

EX_IN_loopCnt 



loop for number of jobs 



EX_IN_recIndex 

EX_IN_jobPtr 



EX_ j obRe c S i z e 

EXINrecIndex ; bump index to next record 



initialize record index 



EX_IN_jobPtr 
ONE 



bump job pointer back 1 record 



3276 5 0, 0327 1 



EX_IN_jobPtr 



03277 
03300 



3277 1 0, 0326 1 
3300 1,3266 



CCS 
TC 



EX_IN_loopCnt 
EX_IN_loopl 



done clearing jobLlst? 
not yet 



; Iterate through job records, initialize each field to zero. 



03301 


3301 


3 


1 


2647 


03302 


3302 


5 





0327 


03303 


3303 


3 


1 


2 652 


03304 


3304 


5 





0326 



CAF 

TS 



EXjobLst Start ; init pointer to start of list 
EX_IN_jobPtr 



EX_IN_loop2 



EXnumJobs 
* 
TS EX_IN_loopCnt 

; loop for number of fields in each record 



CAF 
EQV 
TS 



loop for number of jobs 



03305 


3305 


3 


1 


2646 


1 


03306 


3306 


5 





0331 





03307 


3307 


1 





0331 


1 


03310 


3310 





1 


3312 


1 


03311 


3311 





1 


3324 


1 


03312 


3312 


5 





0331 






EX_IN_loop3 



XCH 


EX_jobRecSize 




TS 


EX_IN_field 




EQV 


* 




CCS 


EX IN field 


; done? 


TC 


*+2 


; not yet 


TC 


EX IN done 


; yes 


TS 


EX IW field 





set the field to zero 



03313 


3313 


3 


1 


2050 





03314 


3314 


2 





0327 





03315 


3315 


6 





0000 


1 


03316 


3316 


6 





0331 





03317 


3317 


5 





0332 





03320 


3320 


3 


1 


2050 





03321 


3321 


2 





0332 


1 


03322 


3322 


5 





0130 





03323 


3323 





1 


3307 






CAF 


ZERO 




INDEX 


EX IW 


jobPtr 


AD 







AD 


EX IW 


field 


TS 


EX IW 


findx 


CAF 


ZERO 




INDEX 


EX IW 


findx 


TS 


EX cur rent Job 



; get index to record 

; add field displacement 

; save index to field 



clear field 



TC EX_IN_loop3 

done clearing all fields in record, so do next record 



EX_IN_done 



03324 


3324 


3 





0327 


1 


03325 


3325 


6 


1 


2051 


1 


03326 


3326 


5 





0327 


1 


03327 


3327 


1 





0326 


1 


03330 


3330 





1 


3304 






EQV 


* 




XCH 


EX IW 


jobPtr 


AD 


OWE 




TS 


EX_ IW_ 


jobPtr 


CCS 


EX IW 


loopCn 


TC 


EX IW 


loop2 



; bump job pointer back 1 record 



not yet 



3331 0, 0325 



EX_IN_saveQ 



EX_findIns - FIND INSERTION POINT INTO SORTED LIST 

Insert a job record into the sorted list. Use ' EXISnewPrio ' , 
EXISnewPrioB and ' EXISnewLoc ' to set the fields of record to 
be inserted . 

Performs an insertion sort, with the records sorted by priority . 
Highest priority is at the front of the list. If several records 
have the same priority, the records inserted first will appear first 
in the list. NIL records have a priority of zero. 



EX_findIns 



03332 3332 3 0, 0001 

03333 3333 5 0, 0351 

03334 3334 3 1,2651 1 

03335 3335 5 0, 0352 

03336 3336 6 1,2046 1 

03337 3337 5 0,0353 1 

03340 3340 3 1,2050 

03341 3341 2 0, 0352 1 

03342 3342 2 0, 0000 

03343 3343 6 0, 0143 1 



EQV 
XCH 

TS 

CAF 
TS 

AD 
TS 

CAF 

INDEX 

INDEX 

AD 



EX_IS_saveQ 

EX_jobLstEndl 
EX_IS_jobPtr 

NEG1 
EX_IS_jobPtr2 

ZERO 

EX_IS_jobPtr 



PRIORITY 



; save return address 

; set pointer to back of list 

; set pointer to rec in front of it 



check last record on list 



03344 
03345 



3344 1 0, 0000 

3345 1,3405 



3346 3 1,2653 



CCS 
TC 



EX_FI_done 



; list full? 
; >0 yes 



Work from the back of the list to the front, pushing each record 
to the back until the insertion point is found. 



EX_FI_loop 



CAF 
EQV 



EXnumJobs 1 



loop for number of jobs minus 1 



03347 


3347 


5 





0354 





03350 


3350 


3 


1 


2050 





03351 


3351 


2 





0353 





03352 


3352 


2 





0000 





03353 


3353 


6 





0143 


1 


03354 


3354 


1 





0000 





03355 


3355 





1 


3357 





03356 


3356 





1 


3376 






EX_IS_loopCnt 



CAF 


ZERO 


INDEX 


EX_IS_jobPtr2 


INDEX 





AD 


PRIORITY 


CCS 


A 


TC 


*+2 


TC 


EX_FI_bumpPtr 



previous record is NIL ? 

no, so check it 

yes , so skip to next record 



Is this the insertion point': 



03357 


3357 


4 





0346 


1 


03360 


3360 


2 





0353 





03361 


3361 


2 





0000 





03362 


33 62 


6 





0143 


1 


03363 


3363 


1 





0000 





03364 


3364 





1 


3405 





03365 


3365 





1 


3405 





03366 


3366 





1 


3370 





03367 


3367 





1 


3405 






cs 


EX IS newPrio 




INDEX 


EX_IS_jobPtr2 




INDEX 







AD 


PRIORITY 




CCS 


A , 


found insertion point? 


TC 


EX_FI_±nsRec , 


>0 yes 


TC 


EX_FI_±nsRec , 


+ yes 


TC 


*+2 


<0 no, keep checking 


TC 


EX_FI_insRec , 


-0 yes 



No, bump the record toward the back of the list . 



03370 


3370 


2 





0353 





03371 


3371 


3 





0000 


1 


03372 


3372 


2 





0352 


1 


03373 


3373 


3 





0000 


1 


03374 


3374 


2 





0353 





03375 


3375 


3 





0000 


1 


03376 


3376 


3 





0352 





03377 


3377 


6 


1 


2046 


1 


03400 


3400 


5 





0352 





03401 


3401 


6 


1 


2046 


1 


03402 


3402 


5 





0353 


1 


03403 


3403 


1 





0354 


1 


03404 


3404 





1 


3347 


1 



INDEX 


EX IS 


jobPtr2 


XCM 







INDEX 


EX IS 


jobPtr 


XCH 







INDEX 


EX IS 


jobPtr2 


XCH 








EX_FI_bumpPtr EQU 
XCH 

AD 
TS 

AD 
TS 

CCS 
TC 



EX_IS_jobPtr 

NEG1 

EX_IS_jobPtr 

NEG1 
EX_IS_jobPtr2 



bump job pointer forward 1 record 



set pointer to record in front of it 



EXISloopCnt ; done bumping jobs backward? 



EX_FI_loop 



not yet 



; New record should be inserted at EXISjobPtr . 
EX_FI_insRec EQV * 



EX_FI_done 



03405 


3405 


3 


1 


2050 





03406 


3406 


6 





0352 





03407 


3407 








0351 






EQV 
CAF 

AD 
TC 



ZERO 

EX_IS_jobPtr 

EX_IS_saveQ 



get insertion spot in list 
return 



EX_remove - REMOVE JOB FROM FRONT OF LIST 



Remove job from front of list and copy it to the current job. Bubble 
any remaining jobs toward the front of the list. 



EXremove 



03410 3410 3 0, 0001 

03411 3411 5 0, 0336 1 



03412 3412 3 1,2647 

03413 3413 5 0, 0337 



03414 3414 6 1,2051 1 

03415 3415 5 0, 0340 



EQV 


* 


XCH 


Q 


TS 


EX_RM_saveQ 


CAF 


EX_jobLstStar 


TS 


EX_RM_jobPtr 


AD 


ONE 


TS 


EX_RM_jobPtr2 



save return address 



set pointer to next rec behind it 



; Dequeue the record at the top of the list (the next job to run) . 
; Make it the current job by copying it to the current job record . 



03416 3416 3 1,2646 1 

03417 3417 5 0, 0344 1 



EX_RM_loopl 



03420 3420 1 0, 0344 

03421 3421 1,3423 1 

03422 3422 1, 3437 1 

03423 3423 5 0, 0344 1 



XCH 


EX_jobRecSize 




TS 


EX_RM_field 




EQV 


* 




CCS 


EX RM field 


; done? 


TC 


*+2 


; not yet 


TC 


EX RM donel 


; yes 


TS 


EX RM field 





; copy field from list to current job 



03424 3424 3 1,2050 

03425 3425 2 0, 0337 1 

03426 3426 6 0, 0000 1 



CAF 
INDEX 

AD 



ZERO 

EX_RM_jobPtr 





get index to record 



03427 


3427 


6 


, 


0344 


1 


03430 


3430 


5 


0, 


0345 





03431 


3431 


3 


1, 


2050 





03432 


3432 


2 


0, 


0345 


1 


03433 


3433 


6 


0, 


0130 





03434 


3434 


2 


0, 


0344 





03435 


3435 


5 


0, 


0130 





03436 


3436 





1, 


3420 


1 



AD 

TS 

CAF 

INDEX 

AD 

INDEX 

TS 



EX_RM_f±eld 

EX_RM_ findx 

ZERO 

EX_RM_ findx 

EX_ cur rent Job 

EX_RM_f±eld 

EX_ cur rent Job 

EX_RM_loopl 



add field displacement 
save index to field 



get field 

move to current job 



; done copying record for current job. Restore the current job to 
; its default priority, in case it was previously elevated . 



EX_RM_donel 



03437 3437 3 1,2050 

03440 3440 6 0,0144 

03441 3441 5 0, 0143 1 

03442 3442 2 0, 0337 1 

03443 3443 3 0, 0000 1 

03444 3444 5 0, 0341 1 



EQO 


* 


CAF 


ZERO 


AD 


JOBPRIOBASE 


TS 


PRIORITY 


INDEX 


EX_RM_jobPtr 


XCH 





TS 


EX RM savePtr 



so we can move it to the end later 



; Loop through the remaining records in the job list and 
; bubble them up to the front . 



03445 


3445 


3 


1, 


2653 





03446 


3446 


5 


0, 


0342 


1 


03447 


3447 


2 


0, 


0340 


1 


03450 


3450 


3 


0, 


0000 


1 


03451 


3451 


2 


0, 


0337 


1 


03452 


3452 


5 


0, 


0000 


1 


03453 


3453 


1 


0, 


0000 





03454 


3454 





1, 


3456 





03455 


3455 





1, 


3465 





03456 


3456 


3 


0, 


0337 





03457 


3457 


6 


1, 


2051 


1 


03460 


3460 


5 


0, 


0337 





03461 


3461 


6 


1, 


2051 


1 


03462 


34 62 


5 


0, 


0340 





03463 


3463 


1 


0, 


0342 





03464 


3464 





1, 


3446 


1 



EX_RM_loop2 



CAF 


EXnumJobsl 


EQV 


* 




TS 


EX_RM_ 


loopCnt 


INDEX 


EX_RM_ 


_jobPtr2 


XCH 







INDEX 


EX_RM_ 


jobPtr 


TS 







CCS 


A 




TC 


*+2 




TC 


EX_RM_ 


done2 


XCH 


EX_RM_ 


jobPtr 


AD 


ONE 




TS 


EX_RM_ 


jobPtr 


AD 


ONE 




TS 


EX_RM_ 


_jobPtr2 


CCS 


EX_RM_ 


loopCnt 


TC 


EX_RM_ 


_loop2 



; loop for number of jobs minus 1 



remainder of list empty? 

>0, no 

+0 , yes , so exit 

bump job pointer back 1 record 



set pointer to record behind i t 



done bumping jobs upward? 
not yet 



Since we removed a record, the last record on the list 
should be NIL . 



EX_RM_done2 



03465 


3465 


3 


, 


0341 


1 


03466 


3466 


2 


0, 


0337 


1 


03467 


3467 


5 


0, 


0000 


1 



EQV 


* 


XCH 


EX RM savePtr 


INDEX 


EX_RM_jobPtr 


TS 






move the index for the top record 
to the bot torn of the list 



set all fields in NIL record to zero 



03470 


3470 


3 


1 , 


2646 


1 


03471 


3471 


5 


0, 


0344 


1 


03472 


3472 


1 


0, 


0344 





03473 


3473 





1, 


3475 


1 


03474 


3474 





1, 


3507 





03475 


3475 


5 


0, 


0344 


1 



EX_RM_loop3 



XCH 


EX_jobRecSize 




TS 


EX_RM_field 




EQV 


* 




CCS 


EX_RM_field 


; done? 


TC 


*+2 


; not yet 


TC 


EX_RM_done3 


; yes 


TS 


EX_RM_field 





set this field to zero 



03476 


3476 


3 


1, 


2050 





03477 


3477 


2 


0, 


0337 


1 


03500 


3500 


6 


0, 


0000 


1 


03501 


3501 


6 


0, 


0344 


1 


03502 


3502 


5 


0, 


0345 





03503 


3503 


3 


1, 


2050 





03504 


3504 


2 


0, 


0345 


1 


03505 


3505 


5 


0, 


0130 





03506 


3506 





1, 


3472 





03507 


3507 





0, 


0336 


1 



EX_RM_done3 



CAF 


ZERO 


INDEX 


EX_RM_jobPtr 


AD 





AD 


EX RM field 


TS 


EX RM findx 


CAF 


ZERO 


INDEX 


EX RM findx 


TS 


EX current Job 



EQU 

TC 



EX_RM_loop3 



EX_RM_saveQ 



get index to record 
add field displacement 
save index to field 



clear field 



DUMMY JOB - runs at the lowest priori ty and never terminates . Ensures 
that there is always at least one job executing . Sleeping jobs are 
given a lower priority than the dummy job . 

The dummy job controls the computer activity light on the DSKY . When 
the dummy job is running, the light is off . When the dummy job is 
preempted by a higher priority job, the light is on . 

I couldn ' t find good information on the computer activi ty light 

in COLOSSUS , so this is my best guess concerning its operation . It 

seems consistent wi tht the MPEG video of the Apollo 1 1 DSKY . 



entering dummy job 



t urn off computer activity light 















dumjob 


03510 


3510 


3 


1 


2050 







03511 


3511 


6 





0011 


1 




03512 


3512 


7 


1 


3525 


1 




03513 


3513 


5 





0011 


1 





EQU 


* 


CAF 


ZERO 


AD 


DSALMOUT 


MASK 


NOTACTLT 


TS 


DSALMOUT 



turn bit 1 off 



runtime loop for dummy job 















dumjobl 


EQU 


* 


03514 


3514 


1 





0307 


1 




CCS 


new Job 


03515 


3515 





1 


3517 


1 




TC 


dumJob2 


03516 


3516 





1 


3514 


1 




TC 


dumjobl 



check for context swit ch 

yes 



exiting dummy job 



turn on computer activity light 













dumJob2 


EQU 


* 


03517 


3517 


4 


0, 0011 







CS 


DSALMOUT 


03520 


3520 


7 


1, 3525 


1 




MASK 


NOTACTLT 


03521 


3521 


4 


0, 0000 







COM 




03522 


3522 


5 


0, 0011 


1 




TS 


DSALMOUT 


03523 


3523 





1, 2733 


1 




TC 


CHANG 1 


03524 


3524 





1, 3510 







TC 


dumjob 


03525 


3525 




77776 


1 


NOTACTLT 


DS 
1NCL 


%77776 

bank f . asm 



; inclusi ve OR bit 1 wi th 1 using 
; Demorgan 's theorem 



exit to run higher priority job 

job done , return here , light off again 



1 ' s compliment of bitl (comp activity light) 
bank intercommunication routines 



BANK INTERCOMMUNICATION ( file : bank_f . asm) 



Version : 
Author : 
Date: 



John Pultorak 
01/19/2002 



PURPOSE: 

Contains bank intercommunication routines . 

The source is missing from my (incomplete) listing of COLOSSUS . The 

implementation here is inferred from the usage in the COLOSSUS pinball 

routines . Some of these routines could probably be combined or optimized 

away if I understood the pinball software archi tect ure a little better . 



DXCHJUMP 

Do a bank jump to the CADR in register A . After the bank jump, the return 

CADR is in register A . Contents of register Q are destroyed . 

Th is is my att emp t to i mp 1 emen t the block I e qu i va lent for 

DC A MY 2 CADR 

DXCH Z 

. . which is used in some places in COLOSSUS to implement bank jumps. In that 
implementation, MY 2 CADR has the lower portion of the address in MYCADR and 
the bank portion in MY2CADR+1 . DC A loads the lower address into A and the 
bank address into L . DXCH loads the lower address into Z and the bank portion 
into BB (both bank register) , thereby doing a bank call . After the call, 
the lower ret urn address is in A and the return bank is in L . 















DXCHJUMP 


EQU 


* 


03526 


3526 


5 


0, 


0576 







TS 


ADDRWD1 


03527 


3527 


3 


0, 


0001 







XCH 


Q 


03530 


3530 


5 


0, 


0617 


1 




TS 


DCRET 


03531 


3531 


3 





0015 







XCH 


BANK 


03532 


3532 


5 





0616 







TS 


DCBANK 



03533 
03534 
03535 
03536 



save 14-bit destination address 



save old return address 



3533 4 

3534 6 

3535 1 

3536 



0, 0576 1 
1,2102 

0, 0000 

1, 3547 1 



; save old bank 
put the 12-bit destination address in ADDRWD1 

; - (14bitAddr) +%6000 



CS 
AD 
CCS 
TC 



ADDRWD1 
bankAddr 



DODXCHCALL 



; CADR is bank addressed? 
; >0 no, just run it, as is 



03537 


3537 





1 


3541 


1 


03540 


3540 





1 


3541 


1 


03541 


3541 


3 


1 


2050 





03542 


3542 


6 





0576 





03543 


3543 


5 





0015 





03544 


3544 


7 


1 


2103 





03545 


3545 


6 


1 


2102 





03546 


3546 


5 





0576 






TC 


* + 2 


TC 


* + l 


CAF 


ZERO 


AD 


ADDRWD1 


TS 


BANK 


MASK 


lowAddr 


AD 


bankAddr 


TS 


ADDRWD1 



+ yes 
<0 yes 



set the bank 



get lowest 1 0-bi ts of address 

set bits 11, 12 for fixed-switchable 

save 12- bi t destination address 



put the 14-bit return CADR into A. 



DODXCHCALL 



03547 


3547 


4 





0617 





03550 


3550 


6 


1 


2102 





03551 


3551 


1 





0000 





03552 


3552 





1 


3561 





03553 


3553 





1 


3555 


1 


03554 


3554 





1 


3555 


1 


03555 


3555 


4 


1 


2102 


1 


03556 


3556 


6 





0617 


1 


03557 


3557 


6 





0616 





03560 


3560 





1 


3563 


1 


03561 


3561 


3 


1 


2050 





03562 


35 62 


6 





0617 


1 


03563 


3563 


2 





0576 


1 


03564 


3564 








0000 


1 



DC_NOTBANK 



EQU 

CS 

AD 

CCS 

TC 

TC 

TC 

CS 
AD 
AD 
TC 

EQV 

CAF 
AD 



DCRET 

bankAddr 

A 

DC_NOTBANK 

*+2 

* + l 

bankAddr 

DCRET 

DCBANK 

* + 3 



ZERO 
DCRET 



INDEX ADDRHD1 

TC 



get 12-bit return address 

- (12bitAddr) +%60 00 

return address is bank addressed? 

>0 no, just use it, as is 

+ yes 

<0 yes 



12bitAddr 



i6000 



put return CADR in A 



put return CADR in A 



apply indirect address to next instr. 
make the jump 



BANKCALL 

Do a bank jump to the location referenced by the 14-bit address referenced 

in Q. Does not affect register A (but assumes A does not contain an 

overflow) . Functionally identical to POSTJUMP . 

Usage : 

TC BANKCALL ; bank jump to CADR 

DS MYCADR ; the 14-bit address 

returns here if MYCADR calls TC Q. 

Inferred from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968. 













BANKCALL 


EQU 


* 


03565 


3565 


5 





0612 


1 


TS 


BCA 


03566 


3566 


2 





0001 


1 


INDEX 


Q 


03567 


3567 


3 





0000 


1 


CAF 





03570 


3570 


5 





0576 





TS 


ADDRWD1 


03571 


3571 


3 





0001 





XCH 


Q 


03572 


35 72 


5 





0611 


1 


TS 


BCRET 


03573 


3573 


3 





0015 





XCH 


BANK 


03574 


3574 


5 





0610 





TS 


BCBANK 


03575 


3575 


4 





0576 


1 


CS 


ADDRWD1 


03576 


3576 


6 


1 


2102 





AD 


bankAddr 


03577 


3577 


1 





0000 





CCS 


A 


03600 


3600 





1 


3611 


1 


TC 


DOBANKCALL 


03601 


3601 





1 


3603 


1 


TC 


*+2 


03602 


3602 





1 


3603 


1 


TC 


* + l 


03603 


3603 


3 


1 


2050 





CAF 


ZERO 


03604 


3604 


6 





0576 





AD 


ADDRWD1 


03605 


3605 


5 





0015 





TS 


BANK 


03606 


3606 


7 


1 


2103 





MASK 


lowAddr 


03607 


3607 


6 


1 


2102 





AD 


bankAddr 


03610 


3610 


5 





0576 




DOBANKCALL 


TS 
EQU 


ADDRHD1 

* 


03611 


3611 


3 





0612 


1 


XCH 


BCA 


03612 


3612 


2 





0576 


1 


INDEX 


ADDRHD1 


03613 


3613 








0000 


1 


TC 






save A 

load the CADR into A 

save 1 4—bi t destination address 

save old ret urn address — 1 

save old bank 

- (14bitAddr) +%600 

CADR is bank addressed? 
>0 no , just run it , as is 
+ yes 
<0 yes 

set the bank 

get lowest 1 0-bi ts of address 

set bits 11, 12 for fixed-switchable 



restore A 

apply indirect address to next instr . 

make the jump 



Jump returns here; 



03614 


3 614 


5 





0612 


1 


03615 


3 615 


3 





0610 





03616 


3616 


5 





0015 






restore the old bank and ret urn 
■ save A 



TS 


BCA 


XCH 


BCBANK 


TS 


BANK 



03617 


3 617 


3 





0611 


1 


03620 


3 62 


6 


1 


2051 


1 


03621 


3621 


5 





0001 





03622 


3 622 


3 





0612 


1 


03623 


3623 








0000 






XCH 


BCRET 


AD 


ONE 


TS 


Q 


XCH 


BCA 


RETURN 





; skip CADR 



; restore A 



MYBANKCALL 

Functionally identical to BANKCALL . Used for converting the FLASHON/FLASHOFF 
COLOSSUS block II code to block I. In Block II, the V/N flash is controlled by 
setting a bit in an I/O channel . In Block I , a bit in the display table must 
he set using _1 ID SPIN . Because _1 ID SPIN is in fixed/ swi tchable memory, but is 
called from fixed/fixed, a bank call function is needed . The original BANKCALL 
could not be used because it is not reentrant and I dont understand its usage 
in COLOSSUS well enough to be certain that FLASHON/FLASHOFF isn't already 
being called somewhere through BANKCALL . 



MYBANKCALL 



03624 


3624 


5 





0615 





03625 


3625 


2 





0001 


1 


03626 


3 62 6 


3 





0000 


1 


03621 


3 621 


5 





0516 





03630 


3630 


3 





0001 





03631 


3631 


6 


1 


2051 


1 


03632 


3 632 


5 





0614 


1 


03633 


3633 


3 





0015 





03634 


3634 


5 





0613 





03635 


3635 


3 


1 


2050 





03636 


3 636 


6 





0516 





03637 


3 631 


5 





0015 





03640 


3 64 


7 


1 


2103 





03641 


3641 


6 


1 


2102 





03642 


3642 


5 





0516 





03643 


3643 


3 





0615 





03644 


3 64 4 


2 





0516 


1 


03645 


3645 








0000 


1 



03646 


3 64 6 


5 





0615 





03641 


3 641 


3 





0613 





03650 


3650 


5 





0015 





03651 


3651 


3 





0615 





03652 


3 652 








0614 


1 



EQO 

TS 


* 
MBCA 


INDEX 

CAF 
TS 


Q 

ADDRWDl 


XCH 

AD 
TS 


Q 

ONE 

MBCRET 


XCH 

TS 


BANK 
MBCBANK 


CAF 

AD 

TS 


ZERO 

ADDRWDl 

BANK 


MASK 
AD 

TS 


lowAddr 

bankAddr 

ADDRWDl 


XCH 

INDEX 

TC 


MBCA 

ADDRWDl 





save A 

load the CADR into A 

save 1 4—bi t destination address 



skip CADR 

save old ret urn address 



save old bank 



set the bank 



; get lowest 1 0-bi ts of address 

; set bits 11, 12 for fixed-switchable 



; restore A 

; apply indirect address to next instr . 

; make the jump 



Jump returns here ; restore the old bank and ret urn 

; save A 



restore A 



TS 


MBCA 


XCH 


MBCBANK 


TS 


BANK 


XCH 


MBCA 


TC 


MBCRET 



POST JUMP 

Do a bank jump to the location referenced by the 1 4 -bit address referenced 

in Q . Does not affect register A (but assumes A does not contain an 

overflow) . Functionally identical to BANKCALL 

Usage : 

TC POSTJUMP ; bank jump to CADR 

DS MYCADR ; the 14-bit address 

returns here if MYCADR calls TC Q. 

Inferred from the AGC Block II COLOSSUS rev 249 assembly listing , 
Oct 28, 1968. 













POSTJUMP EQU 


* 


03653 


3653 


5 





0601 





TS 


PJA 


03654 


3654 


2 





0001 


1 


INDEX 


Q 


03655 


3655 


3 





0000 


1 


CAF 





03656 


3 65 6 


5 





0516 





TS 


ADDRWDl 


03651 


3 651 


3 





0001 





XCH 


Q 


03660 


3660 


5 





0606 


1 


TS 


PJRET 


03661 


3661 


3 





0015 





XCH 


BANK 


03662 


3 662 


5 





0605 


1 


TS 


PJBANK 


03663 


3663 


4 





0516 


1 


CS 


ADDRWDl 


03664 


3664 


6 


1 


2102 





AD 


bankAddr 


03665 


3665 


1 





0000 





CCS 


A 


03666 


3666 





1 


3611 


1 


TC 


DOPOSTJU 



save A 

load the CADR into A 

save 1 4—bi t destination address 

save old ret urn address — 1 

save old bank 

- (14bitAddr) +%600 

CADR is bank addressed? 
>0 no , just run it , as is 



03667 3667 1,3671 1 

03670 3670 1,3671 1 

03671 3671 3 1,2050 

03672 3672 6 0, 0576 

03673 3673 5 0, 0015 

03674 3674 7 1,2103 

03675 3675 6 1,2102 

03676 3676 5 0, 0576 



DOPOSTJUMP 



03677 3677 3 0, 0607 

03700 3700 2 0, 0576 1 

03701 3701 0, 0000 1 



TC 


* + 2 


TC 


* + l 


CAF 


ZERO 


AD 


ADDRWD1 


TS 


BANK 


MASK 


lowAddr 


AD 


bankAddr 


TS 


ADDRWD1 


EQU 


* 


XCH 


PJA 


INDEX 


ADDRWD1 


TC 






+ yes 
<0 yes 



set the bank 



get lowest 1 O—bi ts of address 

set bits 11, 12 for fixed-switchable 



; restore A 

; apply indirect address to next instr . 

; make the jump 



Jump returns here ; restore the old bank and ret urn 



3702 5 0, 0607 



03703 3703 3 0, 0605 1 

03704 3704 5 0, 0015 

03705 3705 3 0, 0606 1 

03706 3706 6 1,2051 1 

03707 3707 5 0, 0001 

03710 3710 3 0, 0607 

03711 3711 0, 0000 



XCH 


PJBANK 


TS 


BANK 


XCH 


PJRET 


AD 


ONE 


TS 


Q 


XCH 


PJA 


RETURN 





; skip CADR 



restore A 



BANKJVMP 

Do a bank jump to the location referenced by the 14-bit address in A. 

Usage : 

CADRSTOR DS MYCADR 



CAF CADRSTOR 

TC BANKJVMP 

returns here if MYCADR calls TC Q 



; load the 14-bit address 
; bank jump to CADR 



Inferred from the AGC Block II COLOSSUS rev 249 assembly listing , 
Oct 28, 1968. 



BANKJUMP 



03712 3712 5 0, 0576 

03713 3713 3 0, 0001 

03714 3714 5 0, 0604 

03715 3715 3 0, 0015 

03716 3716 5 0, 0603 1 

03717 3717 4 0, 0576 1 

03720 3720 6 1,2102 

03721 3721 1 0, 0000 

03722 3722 1,3733 

03723 3723 1,3725 1 

03724 3724 1,3725 1 

03725 3725 3 1,2050 

03726 3726 6 0,0576 

03727 3727 5 0, 0015 

03730 3730 7 1,2103 

03731 3731 6 1,2102 

03732 3732 5 0, 0576 



DOBANKJUMP 



03733 3733 2 0, 0576 1 

03734 3734 0, 0000 1 



EQU 


* 


TS 


ADDRHD1 


XCH 


Q 


TS 


BJRET 


XCH 


BANK 


TS 


BJBANK 


CS 


ADDRWD1 


AD 


bankAddr 


CCS 


A 


TC 


DOBANKJUMP 


TC 


*+2 


TC 


* + l 


CAF 


ZERO 


AD 


ADDRWD1 


TS 


BANK 


MASK 


lowAddr 


AD 


bankAddr 


TS 


ADDRWD1 


EQU 


* 


INDEX 


ADDRHD1 


TC 






save 14-bit destination address 

save old return address 

save old bank 

- (14bitAddr) +%6000 

CADR is bank addressed? 
>0 no, just run it, as is 
+ yes 
<0 yes 

set the bank 

get lowest 10-bit s of address 

set bits 11,12 for fixed-switchable 



apply indirect address to next instr. 
make the jump 



Jump returns here; restore the old bank and return 



03735 
03736 



3735 3 0, 0603 1 

3736 5 0, 0015 



XCH 

TS 



BJBANK 
BANK 



03737 3737 3 0, 0604 

03740 3740 5 0, 0001 

03741 3741 0, 0000 



XCH 

TS 

RETURN 



BJRET 
Q 



; DATACALL 

; Retrieve memory contents at location referenced by the 14-bit address in A. 

; Usage: 



CADRSTOR 



CAF 
TC 



CADRSTOR 
DATACALL 



load the 14-bit address 
return data in A 



Inferred from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968. 













DATACALL 


EQO 


* 


03742 


3742 


5 





0576 





TS 


ADDRWD1 


03743 


3743 


3 





0001 





XCH 


Q 


03744 


3744 


5 





0604 





TS 


BJRET 


03745 


3745 


3 





0015 





XCH 


BANK 


03746 


3746 


5 





0603 


1 


TS 


BJBANK 


03747 


3747 


4 





0576 


1 


CS 


ADDRHD1 


03750 


3750 


6 


1 


2102 





AD 


bankAddr 


03751 


3751 


1 





0000 





CCS 


A 


03752 


3 752 





1 


3763 





TC 


DODATACALL 


03753 


3753 





1 


3755 





TC 


*+2 


03754 


3754 





1 


3755 





TC 


* + l 


03755 


3755 


3 


1 


2050 





CAF 


ZERO 


03756 


3756 


6 





0576 





AD 


ADDRWD1 


03757 


3757 


5 





0015 





TS 


BANK 


03760 


3760 


7 


1 


2103 





MASK 


lowAddr 


03761 


3761 


6 


1 


2102 





AD 


bankAddr 


03762 


3762 


5 





0576 




DODATACALL 


TS 
EQV 


ADDRWD1 

* 


03763 


3763 


3 


1 


2050 





CAF 


ZERO 


03764 


3764 


2 





0576 


1 


INDEX 


ADDRWD1 


03765 


3765 


6 





0000 


1 


AD 





03766 


3766 


3 





0603 


1 


XCH 


BJBANK 


03767 


3767 


5 





0015 





TS 


BANK 


03770 


3770 


3 





0603 


1 


XCH 


BJBANK 


03771 


3771 








0604 





TC 


BJRET 



save 1 4 -hi t address 

save old ret urn address 

save old bank 

- (14b±tAddr) +%600 

CADR is bank addressed? 
>0 no, just use it, as is 
+ yes 
<0 yes 

set the bank 

get lowest 1 0-bit s of address 

set bits 11, 12 for fixed-switchable 



apply indirect address to next instr . 
load the word 



restore the old bank 



get the word 
return 



T4RUPT handler 



INCL T4rupt_f . asm 

T4RUPT (file : T4rupt_f . asm) 

Version : 1.0 

Author : John Pultorak 

Date: 01/09/2002 

PURPOSE: 

Contains T4RUPT handler and DSPOUT subroutine to update DSKY. 



; RELTAB is a packed table. RELAYWORD code in upper 4 bits, RELAY code 
in lower 5 bits. In COLOSSUS, p. 129. 



03772 


3 772 


03773 


3773 


03774 


3774 


03775 


3775 


03776 


3776 


03777 


3777 


04000 


4000 


04001 


4001 


04002 


4 02 


04003 


4003 


04004 


4004 


04005 


4005 





RELTAB 


04025 


1 


10003 





14031 





20033 





24017 


1 


30036 


1 


34034 


1 


40023 


1 


44035 


1 


50037 





54000 






60000 1 RELTAB11 



EQO 


* 


DS 


%04025 


DS 


%10003 


DS 


%14031 


DS 


%20033 


DS 


%24017 


DS 


%30036 


DS 


%34034 


DS 


%40023 


DS 


%44035 


DS 


%50037 


DS 


%54000 


DS 


%60000 



DK_initDK - INITIALIZE DSKY 



Subroutine initializes the eraseable memory segment for DSKY displays . 
Blank DSKY registers program, verb, noun, Rl , R2 , R3 . 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, Fresh Start and Restart , p. 187 . 



05265 DKTESTINIT 



; init DSKY to all zeroes (TEST ONLY) 















DK initDK 


04007 


4001 


3 





0001 







04010 


4010 


5 





0546 







04011 


4011 


3 


1 


2060 







04012 


4012 


5 





0130 





DSP OFF 


04013 


4013 


4 


1 


20 65 


1 




04014 


4014 


2 





0130 


1 




04015 


4015 


5 





0512 


1 




04016 


4016 


1 





0130 


1 




04011 


4011 





2 


4012 








EQV 
XCH 

TS 



DK_IN_saveQ 



CAF 


TEN 


TS 


MPAC 


CS 


BIT12 


CS 


DKTESTINIT 


INDEX 


MPAC 


TS 


DSP TAB 


CCS 


MPAC 


TC 


DSP OFF 



; save ret urn address 
; blank DSKY registers 



set display to 



followed by additional DSKY initialization p 187, 188) 



04020 


4020 


3 


1 


2050 





04021 


4021 


5 





0465 





04022 


4022 


5 





0531 





04023 


4023 


5 





0502 





04024 


4024 


5 





0504 





04025 


4025 


5 





0501 





04026 


4026 


5 





0501 





04021 


4021 


5 





0510 





04030 


4030 


5 





0410 


1 


04031 


4031 


5 





0411 





04032 


4032 


5 


0, 


0532 





04033 


4033 


3 


1 


2105 


1 


04034 


4034 


5 





0505 


1 



CAF 


ZERO 


TS 


DSPCNT 


TS 


CADRSTOR 


TS 


REQRET 


TS 


CLPASS 


TS 


DSPLOCK 


TS 


MONSAVE 


TS 


MONSAVE1 


TS 


VERBREG 


TS 


NOUNREG 


TS 


DSPLIST 


CAF 


NOVTCON 


TS 


NOVT 



kill monitor 



04035 
04036 



set DSKY display bit (sign bit) . Word must be negative , but 
not minus zero (find out where they do this in COLOSSUS ) 



4035 4 1,2051 

4036 5 0, 0355 1 



CS 
TS 



ONE 
FLAGWRD5 



04031 4031 3 1,2050 

04040 4040 6 2,4012 

04041 4041 5 0, 0465 



initialize DSPCNT (index into DSPTAB) . 



CAF 


ZERO 


AD 


TABLNTH 


TS 


DSPCNT 



schedule 1st T4RUPT 



04042 4042 3 2,4014 

04043 4043 5 0, 0040 

04044 4044 3 0, 0546 

04045 4045 5 0, 0001 

04046 4046 0, 0000 



CAF 
TS 

XCH 

TS 

RETURN 



_120MRUPT 

TIME 4 



DK_IN_saveQ 
Q 



reschedule interrupt for 120 mSec 



restore return address 



T4PROG T4RUPT PROGRAM 

Performs T4RUPT (DSRUPT) functions . 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 129. 



04041 4041 3 0, 0001 

04050 4050 5 0, 0544 1 

04051 4051 2,4116 

04052 4052 3 2,4014 

04053 4053 5 0, 0040 

04054 4054 3 0, 0544 1 

04055 4055 5 0, 0001 

04056 4056 0, 0000 



XCH 

TS 


Q 
T4RET 


TC 


DSPOUT 


CAF 
TS 


_120MRUPT 
TIME 4 


XCH 

TS 

RETURN 


T4RET 
Q 



save ret urn address 
update DSKY display 
reschedule interrupt for 12 mSec 

restore return address 



DSPOUT — PUTS OUT DISPLAYS 



Writes changes in the software display buffer to the AGC DSKY hardware 
display . 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 131. 



DSPOUTSR 



EQU 



4057 5 0, 0505 1 



decrement NOVT 



04060 
04061 

04062 
04063 
04064 



04065 
04066 

04061 
04070 
04071 

04072 
04073 



04075 
04076 

04077 
04100 
04101 



4060 4 

4 61 5 

4 62 3 

4063 6 

4064 5 



40 65 2 

4066 1 

4067 1 

4070 

4071 

4 072 
4 073 1 



4075 5 

4076 

4077 5 

4100 3 

4101 



1,2050 1 

0, 0370 

0, 0465 

1,2045 1 

0, 0465 



DSP SCAN 

0, 0465 1 

0, 0512 

0, 0465 1 

2,4 63 

2,4103 1 

0012 1 TABLNTH 

0, 0370 1 

37764 _120MRVPT 

0, 0505 1 

2,4126 

0, 0370 

2,4072 

2,4064 1 



cs 


ZERO 


TS 


DSRVPTEM 


XCH 


DSPCNT 


AD 


NEGO 


TS 


DSPCNT 


EQV 


* 


INDEX 


DSPCNT 


CCS 


DSP TAB 


CCS 


DSPCNT 


TC 


DSPSCAN-2 


TC 


DSPLAY 


DS 


%12 


CCS 


DSRVPTEM 


DS 


16372 


TS 


NOUT 


TC 


DSPOUTEXIT 


TS 


DSRVPTEM 


CAF 


TABLNTH 


TC 


DSPSCAN-1 



set to -0 for 1st pass thru DSPTAB 



to prevent +0 



test sign of DSPTAB + DSPCNT 

>0, already displayed, test DSPCNT 
if DSPCNT +, again 
<0, not yet displayed 

dec 10, length of DSPTAB 

if DSRVPTEM=+0, 2nd pass thru DSPTAB 

(DSPCNT=0) , +0 into NOVT 

DSRUPTEM=+0 , every table entry was checked 
return 

DSRVPTEM=-0, 1st pass thru DSPTAB 
(DSPCNT=0) , +0 into DSRVPTEM, pass again 



4102 2,4126 



DSPOVTEXIT 













DSPLAY 


04103 


4103 


6 


1 


2051 


1 


04104 


4104 


2 





0465 


1 


04105 


4105 


5 





0512 


1 


04106 


4106 


7 


2 


4 672 


1 


04107 


4107 


5 





0370 





04110 


4110 


3 


2 


4666 





04111 


4111 


2 





0465 


1 


04112 


4112 


7 


1 


37 72 


1 


04113 


4113 


6 





0370 





04114 


4114 


5 





0010 





04115 


4115 





2 


4126 






EQV 


* 


AD 


ONE 


INDEX 


DSPCNT 


TS 


DSPTAB 


MASK 


LOW11 


TS 


DSRVPTEM 


CAF 


HI5 


INDEX 


DSPCNT 


MASK 


RELTAB 


AD 


DSRVPTEM 


TS 


OVT0 



DSPOUTEXIT 



replace posi tlvely 
remove bits 12 to 15 



pick up bits 12 to 15 of RELTAB entry 
was EXTEND/WRITE OUT0 in block II 
return 















DSPOVT 


04116 


4116 


3 





0001 







04117 


4117 


5 





0545 







04120 


4120 


1 





0355 







04121 


4121 


3 


1 


2050 







04122 


4122 





2 


4126 







04123 


4123 


1 





0505 







04124 


4124 





2 


4057 


1 




04125 


4125 





2 


4126 





NODSPOVT 
DSPOVTEXIT 



04126 4126 3 0, 0545 

04127 4127 5 0, 0001 
04130 4130 0, 0000 



EQV 


* 


XCH 


Q 


TS 


DSPOVTRET 


CCS 


FLAGWRD5 


CAF 


ZERO 


TC 


NODSPOVT 


CCS 


NOVT 


TC 


DSPOVTSR 


TC 


NODSPOVT 


EQV 


* 


EQV 


* 


XCH 


DSPOVTRET 


TS 


Q 


RETVRN 





save ret urn address 

no display unless DSKY flag (sign bit) 

>0, DSKY disabled 

+ 0, DSKY disabled 

<0, DSKY enabled, so test NOUT 

>0 , handle display requests 

+ , no display requests 



return to calling routine 



KEYRUPT handler 



INCL keyrupt_f . asm 

KEYRUPT ( file : keyrupt_f . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 77. 



KEYRUPT 



KEYBOARD INTERRUPT HANDLER 



Performs keyRUPT functions . 
rollover , implemented as fol 
job record is saved and then 
interrupt . The job record in 
registers assigned to the jo. 
interrupt handler stores the 
started to process the char a 
the current job, so the char 
When addi tional keyboard int 
Up to 7 jobs can be wai ting 
7 keyboard characters can be 
jobs have the same priori ty , 



Triggered by a keyboard key entry . N-key 
lows : When an interrupt occurs , the current 

restored when the job resumes after the 
eludes MP AC , a set of general purpose 
b . When the keyboard interrupt occurs , the 

keyboard character in MP AC . A job is then 
cter . The new job copies its MP AC fields from 
acter is copied to storage owned by the job . 
errupts occur, they start their own jobs . 
in a queue for execution, so as many as 

enqueued for processing . Since all keyboard 

they are enqueued in the order received . 



Its OK for the keyboard handler to modify the MPAC of the interrupted job 
because the interrupted job's record is restored at the end of the 
interrupt service routine. 

Not included in my partial AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, so I had to improvise it from the original flow charts in 
E-1574, p. 77. 



04132 
04133 



04134 
04135 
04136 
04131 



4132 3 0, 0001 

4133 5 0, 0601 



4134 3 0, 0004 

4135 7 2,4664 

4136 3 0, 0130 
4131 3 0, 0551 



DS 


%37776 


EQU 


* 


XCH 


Q 


TS 


KEYRET 



priority of CHARIN job (highest) 



37776 CHRPRIO 

KEYPROG 

XCH Q 

save ret urn address 

prepare to EXEC a job to handle the keystroke . 



XCH 


INO 


MASK 


L0H5 


XCH 


MPAC 


XCH 


KP MPAC 



; save keyboard code 
; save previous MPAC 



04140 4140 3 2,4131 

04141 4141 1,3162 1 

04142 4142 12000 1 



create the job. It terminates when it finishes processing the key. 

; CHARIN job priority 



CAF 

TC 

CADR 



CHRPRIO 
NOV AC 
CHARIN 



; 14 bit CHARIN job address 



04143 4143 3 0, 0551 

04144 4144 3 0, 0130 

04145 4145 3 0, 0601 

04146 4146 5 0, 0001 

04147 4147 0, 0000 



XCH 
XCH 

XCH 

TS 
RETURN 



KP_MPAC 
MPAC 



KEYRET 
Q 



; restore previous MPAC 



restore return address 



mathf . asm 



DP math routines 



MATH LIBRARY ( file : math_f . asm) 

Version : 1.0 

Author : John Pultorak 

Date: 03/01/2002 

PURPOSE: 

Contains double precision math routines. 



TPAGREE 

Force the signs in a triple precision (TP) word to agree. The word is 

in MPAC, MPAC+1, MPAC+2 

The sign of the corrected number is always the sign of the most-significant 
non-zero word. 

This isn't included in my partial COLOSSUS listing, so I had to invent 
my own version. 



04150 
04151 



4150 3 

4151 5 



0, 0001 
0, 0577 1 



EQU 
XCH 

TS 



Q 

MATH_Q 



return address 



; Find the sign to convert to. It will be the sign 
; of the most significant non-zero word. 















TPA 


SGNO 


EQU 


* 


04152 


4152 


1 





0130 


1 






CCS 


MPAC 


04153 


4153 





2 


4157 









TC 


TPA PO 


04154 


4154 





2 


4241 


1 






TC 


TPA SGN1 


04155 


4155 





2 


4210 









TC 


TPA MO 


04156 


4156 





2 


4241 


1 






TC 


TPA_ SGN1 



>0, sign will be + 

+0 , still don't know sign, check MPAC+1 

<0, sign will be - 

-0, still don't know sign, check MPAC+1 



MPAC is non-zero positive, so reconcile signs to a positive number . 



04157 4157 1 0, 0131 

04160 4160 2,4250 1 

04161 4161 2,4167 

04162 4162 2,4164 

04163 4163 2,4167 

04164 4164 3 2,4317 



EQU 


* 


CCS 


MPAC+1 


TC 


TPA Pl+2 


TC 


TPA PZO 


TC 


*+2 


TC 


TPA_PZO 


CAF 


TPA MPACO 



; >0, MPAC+1 is OK, check MPAC+2 

; +0, 

; <0, fix MPAC+1 

; -o, 

; borrow from MPAC to correct MPAC+1 



04165 
04166 
MPAC+2 



4165 

4166 



2, 4337 1 
2,4250 1 



TC 
TC 



TPA_FIXP 
TPA_Pl+2 



MPAC+1 is now non-zero positive ; check 



; MPAC is non-zero positive , MPAC+1 is zero 













TPA_PZO 


EQU 


* 


04161 


4167 


1 


, 


0132 





CCS 


MPAC+2 


04170 


4170 





2, 


4175 





TC 


* + 5 


04171 


4171 





2, 


4173 





TC 


*+2 


04172 


4172 





2, 


4200 


1 


TC 


TPA_PZOFIX 


04173 


4173 


3 


1, 


2050 





CAF 


ZERO 


04174 


4174 


5 


0, 


0132 


1 


TS 


MPAC+2 


04175 


4175 


3 


1, 


2050 





CAF 


ZERO 


04176 


4176 


5 


0, 


0131 


1 


TS 


MPAC+1 


04177 


4177 





0, 


0577 


1 


TC 


MATH_Q 



; >0, zero MPAC+1, MPAC+2 is OK 

; + 0, MPAC+1, +2 both zero 

; <0, 

; make sure they ' re both +0 



; MPAC is non-zero posi tive, MPAC+1 is zero, MPAC+2 is non-zero negative . 
; Sol ution : borrow from MPAC , transfer borrowed val ue to MPAC+1 , but also 
; borrow from MPAC+1 , use borrowed value to correct MPAC+2 . 



TPA_PZOFIX 



04200 


4200 


3 


, 


0132 


1 


04201 


4201 


5 


0, 


0131 


1 


04202 


4202 


3 


2, 


4317 





04203 


4203 





2, 


4337 


1 


04204 


4204 


3 


2, 


4315 


1 


04205 


4205 


3 


0, 


0131 


1 


04206 


4206 


5 


, 


0132 


1 


04207 


4207 





0, 


0577 


1 



EQO 


* 


XCH 


MPAC+2 


TS 


MPAC+1 


CAF 


TPA_MPACO 


TC 


TPA_FIXP 


CAF 


MAXPOS 


XCH 


MPAC+1 


TS 


MPAC+2 


TC 


MATH_Q 



move MPAC+2 to MPAC+1 so we can use 
our standard correction function 



borrow from MPAC to correct MPAC+1 



move corrected val ue from MPAC+1 back 
to MPAC+2. Set MPAC+1 to correct value 
borrowed from MPAC . 



The MPAC is non-zero negative, so reconcile signs to a negative number . 













TPA_MO 


04210 


4210 


1 


0, 


0131 





04211 


4211 





2, 


4215 





04212 


4212 





2, 


4220 





04213 


4213 





2, 


4264 





04214 


4214 





2, 


4220 





04215 


4215 


3 


2, 


4317 





04216 


4216 





2, 


4321 





04217 


4217 





2, 


4264 






EQO 


* 


CCS 


MPAC+1 


TC 


* + 4 


TC 


TPA_MZO 


TC 


TPA_Ml+2 


TC 


TPA_MZO 


CAF 


TPA_MPACO 


TC 


TPA_FIXM 


TC 


TPA_Ml+2 



; >0, fix MPAC+1 

; +0, 

; <0, MPAC+1 is OK, check MPAC+2 

; -o, 

; borrow from MPAC to correct MPAC+1 



; MPAC is non-zero negative , MPAC+1 is zero 













TPA_MZO 


EQU 


* 


04220 


4220 


1 


0, 


0132 





CCS 


MPAC+2 


04221 


4221 





2, 


4231 





TC 


TPA_MZOFIX 


04222 


4222 





2, 


4224 


1 


TC 


*+2 


04223 


4223 





2, 


4226 





TC 


* + 3 


04224 


4224 


3 


1, 


2045 


1 


CAF 


NEGO 


04225 


4225 


5 


0, 


0132 


1 


TS 


MPAC+2 


04226 


4226 


3 


1, 


2045 


1 


CAF 


NEGO 


04227 


4227 


5 


0, 


0131 


1 


TS 


MPAC+1 


04230 


4230 





0, 


0577 


1 


TC 


MATH_Q 



; >0, 

; +0, MPAC+1, +2 both zero 

; <0, zero MPAC+1, MPAC+2 is OK 

; make sure they 're both —0 



; MPAC is non-zero negative , MPAC+1 is zero , MPAC+2 is non-zero positive 
; Sol ution : borrow from MPAC , transfer borrowed val ue to MPAC+1 , but also 
; borrow from MPAC+1 , use borrowed value to correct MPAC+2 . 



TPA_MZOFIX 



04231 


4231 


3 


0, 


0132 


1 


04232 


4232 


5 


0, 


0131 


1 


04233 


4233 


3 


2, 


4317 





04234 


4234 





2, 


4321 





04235 


4235 


3 


2, 


4316 


1 


04236 


4236 


3 


0, 


0131 


1 


04237 


4237 


5 


0, 


0132 


1 


04240 


4240 





0, 


0577 


1 



EQO 


* 


XCH 


MPAC+2 


TS 


MPAC+1 


CAF 


TPA_MPACO 


TC 


TPA_FIXM 


CAF 


MAXNEG 


XCH 


MPAC+1 


TS 


MPAC+2 


TC 


MATH_Q 



move MPAC+2 to MPAC+1 so we can use 
our standard correction function 



; borrow from MPAC to correct MPAC+1 



move corrected val ue from MPAC+1 back 
to MPAC+2. Set MPAC+1 to correct value 
borrowed from MPAC . 



MPAC was zero, so we still don ' t know the sign . Check MPAC+1 . 















TPA_ SGN1 


EQO 


* 


04241 


4241 


1 


0, 


0131 







CCS 


MPAC+1 


04242 


4242 





2, 


4246 







TC 


TPA_P1 


04243 


4243 





2, 


4277 


1 




TC 


TPA_ SGN2 


04244 


4244 





2, 


42 62 







TC 


TPA_M1 


04245 


4245 





2, 


4277 


1 




TC 


TPA_ SGN2 



; > , si gn wi 11 be + 

; +0, still don't know sign, check MPAC+2 

; < , si gn wi 11 be — 

; -0, still don't know sign, check MPAC+2 



MPAC+1 is non-zero posi tive, so reconcile signs to a posi tive number . 













TPA PI 


04246 


4246 


3 


1 


2050 





04241 


4241 


5 





0130 





04250 


4250 


1 





0132 





04251 


4251 








0511 


1 


04252 


4252 








0511 


1 


04253 


4253 





2 


4251 





04254 


4254 


3 


1 


2050 





04255 


4255 


5 





0132 


1 


04256 


4256 








0511 


1 


04251 


4251 


3 


2 


4320 


1 


04260 


4260 





2 


4331 


1 


04261 


4261 








0511 


1 



EQO 


* 


CAF 


ZERO 


TS 


MPAC 


CCS 


MPAC+2 


TC 


MATH_Q 


TC 


MATH_Q 


TC 


* + 4 


CAF 


ZERO 


TS 


MPAC+2 


TC 


MATH_Q 


CAF 


TPA MPAC1 


TC 


TPA FIXP 


TC 


MATH_Q 



set MPAC to + 



>0 , all words are posi tive 

+ , all words are posi tive 

<0, MPAC+2 is nonzero - 

— 0, change to + and we 're done 



borrow from MPAC+1 to correct MPAC+2 



MPAC+1 is non-zero negative, so reconcile signs to a negative number . 













TPA_M1 


04262 


42 62 


3 


1 


2045 


1 


04263 


4263 


5 





0130 





04264 


4264 


1 





0132 





04265 


4265 





2 


4214 


1 


04266 


4266 





2 


4211 


1 


04261 


4261 








0511 


1 


04210 


4210 








0511 


1 


04211 


4211 


3 


1 


2045 


1 


04212 


4212 


5 





0132 


1 


04213 


4213 








0511 


1 


04214 


4214 


3 


2 


4320 


1 


04215 


4215 





2 


4321 





04216 


4216 








0511 


1 



EQO 


* 


CAF 


NEGO 


TS 


MPAC 


CCS 


MPAC+2 


TC 


* + l 


TC 


* + 3 


TC 


MATH_Q 


TC 


MATH_Q 


CAF 


NEGO 


TS 


MPAC+2 


TC 


MATH_Q 


CAF 


TPA MPAC1 


TC 


TPA FIXM 


TC 


MATH_Q 



set MPAC to -0 



>0, MPAC+2 is nonzero + 

+ 0, change to —0 and we 're done 

<0 , all words are negative 

— 0, all words are negative 

+ 0, change to —0 and we 're done 



borrow from MPAC+1 to correct MPAC+2 



MPAC and MPAC+1 were both zero. 
Check MPAC+2. 



so we still don 't know the sign. 















TPA_ 


_SGN2 


EQU 


* 


04211 


4211 


1 





0132 









CCS 


MPAC+2 


04300 


4300 





2 


4304 


1 






TC 


TP A_P 2 


04301 


4301 





2 


4310 


1 






TC 


TP A_P 3 


04302 


4302 





2 


4306 









TC 


TPA_M2 


04303 


4303 





2 


4310 


1 






TC 


TPA_P3 


04304 


4304 


3 


1 


2050 





TPA_ 


_P2 


CAF 


ZERO 


04305 


4305 





2 


4312 









TC 


* + 5 


04306 


4306 


3 


1 


2045 


1 


TPA_ 


M2 


CAF 


NEGO 


04301 


4301 





2 


4312 









TC 


* + 3 


04310 


4310 


3 


1 


2050 





TPA_ 


_P3 


CAF 


ZERO 


04311 


4311 


5 





0132 


1 






TS 


MPAC+2 


04312 


4312 


5 





0131 


1 






TS 


MPAC+1 


04313 


4313 


5 





0130 









TS 


MPAC 


04314 


4314 








0511 


1 






TC 


MATH_Q 



>0, sign is + 

+ , number is all zeros 

<0, sign is — 

—0, number is all zeros 



set MPAC, MPAC+1 to +0 
set MPAC, MPAC+1 to -0 



set MPAC, MPAC+1, MPAC+2 to +0 



04315 


4315 


04316 


4316 


04311 


4311 


04320 


4320 



31111 1 MAXPOS 
4 0000 MAXNEG 



00130 TPA_MPACO 

00131 1 TPA_MPAC1 



DS 


%31111 


DS 


%40000 


DS 


MPAC 


DS 


MPAC+1 



; largest non-overflow pos number 
; largest non-overflow neg number 



TPA_FIXM 

Reconcile the signs in a double precision word . The most significant word 
is in C (A) , the lesser word in C (A + l ) . Reconcilliation occurs by borrowing 
from C (A) and adding the borrowed amount to C (A + l) . C (A) is assumed to be 
negative non-zero number and C (A+l ) positive non-zero . The reconciliation 
makes both numbers negative . 

Th is is part of my i mp lementation of TPA GREE . 















TPA FIXM 


EQO 


* 


04321 


4321 


5 





0516 







TS 


ADDRWD1 


04322 


4322 


2 





0516 


1 




INDEX 


ADDRWD1 


04323 


4323 


4 





0000 







CS 






borrow from 1st word 



04324 


4324 


1 





0000 





04325 


4325 


4 





0000 





04326 


4326 


2 





0576 


1 


04321 


4327 


5 





0000 


1 


04330 


4330 


3 


2 


4316 


1 


04331 


4331 


6 


1 


2046 


1 


04332 


4332 


2 





0576 


1 


04333 


4333 


6 





0001 





04334 


4334 


2 





0576 


1 


04335 


4335 


5 





0001 





04336 


4336 








0001 






CCS 


A 


COM 




INDEX 


ADDRWD1 


TS 





CAF 


MAXNEG 


AD 


NEG1 


INDEX 


ADDRWD1 


AD 


1 


INDEX 


ADDRWD1 


TS 


1 


TC 


Q 



; create negative overflow 

; correct 2nd word, changes sign 



TPA_FIXP 

Reconcile the signs in a double precision word . The most significant word 
is in C (A) , the lesser word in C (A + l ) . Reconcilliation occurs by borrowing 
from C (A) and adding the borrowed amount to C (A+l ) . C (A) is assumed to be 
positive non-zero number and C (A+l ) negative non-zero . The reconciliation 
makes both numbers posi tive . 

Th is is part of my i mp lementation of TPA GREE . 



TPA_FIXP 



04337 


4337 


5 


0, 


0576 





04340 


4340 


2 





0576 


1 


04341 


4341 


1 





0000 





04342 


4342 


2 





0576 


1 


04343 


4343 


5 


0, 


0000 


1 


04344 


4344 


3 


2 


4315 


1 


04345 


4345 


6 


1 


2051 


1 


04346 


4346 


2 





0576 


1 


04347 


4347 


6 





0001 





04350 


4350 


2 





0576 


1 


04351 


4351 


5 





0001 





04352 


4352 








0001 






EQO 


* 


TS 


ADDRWD1 


INDEX 


ADDRWD1 


CCS 





INDEX 


ADDRWD1 


TS 





CAF 


MAXPOS 


AD 


ONE 


INDEX 


ADDRWD1 


AD 


1 


INDEX 


ADDRWD1 


TS 


1 


TC 


Q 



borrow from 1st word 



create positive overflow 
correct 2nd word, changes sign 



SHORTMP MULTIPLY DOUBLE WORD BY A SINGLE WORD 

Multiply C(MPAC, MPAC+1) by the contents of A. Put the product in MPAC , 
MPAC+1, MPAC+2. 

These aren't included in my partial COLOSSUS listing, so I had to invent 
my own version. 



SHORTMP 



4353 5 0, 0573 



EQU 

TS 



SHORTMP_A 



MPAC+2 = MPAC+1 * A 



04354 


4354 


2 





0000 


1 




EXTEND 




04355 


4355 


4 


0, 


0131 







MP 




MPAC+1 


04356 


4356 


5 





0574 


1 




TS 




SHORTMP OVFL 


04357 


4357 


3 


0, 


0003 


1 




XCH 




LP 


04360 


4360 


5 


0, 


0132 


1 




TS 




MPAC+2 














MPAC+1 = 


■ (MPAC * 


A) + overflow 


04361 


4361 


3 





0573 







XCH 




SHORTMP A 


04362 


4362 


2 


0, 


0000 


1 




EXTEND 




04363 


4363 


4 





0130 


1 




MP 




MPAC 


04364 


4364 


5 


0, 


0575 







TS 




SHORTMP OVFH 


04365 


4365 


3 





0003 


1 




XCH 




LP 


04366 


4366 


6 


0, 


0574 


1 




AD 




SHORTMP OVFL 


04367 


4367 


5 





0131 


1 




TS 




MPAC+1 


04370 


4370 


3 


1 


2050 







CAF 




ZERO 



skip on overflow 

otherwise , make interword carry=0 



MPAC = overflow 



04371 
04372 



4371 6 

4372 5 



0, 0575 
0, 0130 



AD 
TS 



SHORTMP_OVFH 
MPAC 



4373 0, 0001 



DMP DOUBLE PRECISION MULTIPLY 

Multiply val, val+1 with C (MPAC , MPAC+1). ' ADDRWD1 ' contains the 
address of 'val'. The product appears in MPAC, MPAC+1, MPAC+2 

,' This isn't included in my partial COLOSSUS listing, but is taken from 



the double precision math examples in R—393. 













DMP 


EQV 


* 


04374 


4374 


2 





0001 


1 


INDEX 


e 


04375 


4375 


3 


0, 


0000 


1 


CAF 





04376 


4376 


6 


2 


5777 





AD 


EXTENDER 


04377 


4377 


5 


0, 


0576 





TS 


ADDRWD1 


04400 


4400 


3 


0, 


0131 


1 


XCH 


MPAC+1 


04401 


4401 


5 





0034 





TS 


OVCTR 


04402 


4 4 02 


2 


0, 


0576 


1 


INDEX 


ADDRWD1 


04403 


4403 


4 





0001 


1 


MP 


1 


04404 


4404 


3 


0, 


0034 





XCH 


OVCTR 


04405 


4405 


2 


0, 


0576 


1 


INDEX 


ADDRWD1 


04406 


4406 


4 





0000 





MP 





04407 


4407 


3 


0, 


0034 





XCH 


OVCTR 


04410 


4410 


6 





0003 


1 


AD 


LP 


04411 


4411 


3 


0, 


0130 





XCH 


MPAC 


04412 


4412 


5 





0132 


1 


TS 


MPAC+2 


04413 


4413 


2 


0, 


0576 


1 


INDEX 


ADDRWD1 


04414 


4414 


4 





0001 


1 


MP 


1 


04415 


4415 


3 


0, 


0034 





XCH 


OVCTR 


04416 


4416 


3 





0130 





XCH 


MPAC 


04417 


4417 


6 


0, 


0003 


1 


AD 


LP 


04420 


4420 


3 


, 


0132 


1 


XCH 


MPAC+2 


04421 


4421 


2 





0576 


1 


INDEX 


ADDRWD1 


04422 


4422 


4 


0, 


0000 





MP 





04423 


4423 


3 





0034 





XCH 


OVCTR 


04424 


4424 


6 


0, 


0130 





AD 


MPAC 


04425 


4425 


6 





0003 


1 


AD 


LP 


04426 


4426 


3 


0, 


0131 


1 


XCH 


MPAC+1 


04427 


4427 


3 





0034 





XCH 


OVCTR 


04430 


4430 


5 


0, 


0130 





TS 


MPAC 


04431 


4431 


3 


0, 


0001 





XCH 


Q 


04432 


4 4 32 


6 


1 


2051 


1 


AD 


ONE 


04433 


4433 


5 


0, 


0001 





TS 


Q 


04434 


4434 





0, 


0001 




BANKFF 1 


TC 
EQV 


Q 



skip next word on return 



PINBALL 

Now, do the "pinball game" (DSKY) routines. 

Mimic the bank assignments in COLOSSUS. Since this is a block I AGC that 
has fewer banks, different bank numbers are used, but the sequence and 
relative allocation of routines to various banks is preserved . 



; don't change BANK04_1 without also changing V37BANK 



BANK04_1 

BANK4 0_1 
BANK41_1 
BANK42_1 
BANK43_1 



EQV 

EQV 
EQV 
EQV 
EQV 



BANK 4 

BANK5 
BANK 6 
BANK 7 
BANK1 



was BANK 04 in COLOSSUS 

was BANK 40 in COLOSSUS 

was BANK 41 in COLOSSUS 

was BANK 42 in COLOSSUS 

was BANK 43 in COLOSSUS 



start of COLOSSUS routines 



ORG 
INCL 



BANK04_1 
bank04_l . asm 



COLOSSVS pp. 192-204 



MAJOR MODE CHANGE ( file : bank04_l . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 192-204. 



VERB 37 

In COLOSSVS, a successful V37 apparently also restarts the AGC. Here, 
we implement a subset of COLOSSVS to kick off a job associated with the 
verb . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 192-204 . 



V3 7 



EQV 

TS 



; verb 31 

; save major mode 



10000 4,0000 5 0,0464 1 TS MMNUMBER 

; ** skipped quite a bit of guidance system-related code ** 

10001 4,0001 4,6005 1 TC CHECKTAB 

; ** skipped more guidance system-related code ** 



V3 7 BAD 



10002 
10003 
10004 



4, 0002 
4, 0003 
4, 0004 



2, 5003 

1, 3653 

05067 



EQV 


* 


TC 


RELDSP 


TC 


POSTJVMP 


CADR 


PINBRNCH 



; releases display from astronaut 

; bring back last normal display if there 

; was one , OY 



; Search table for entry matching major mode number . Table entries 

; are sorted by major mode number, so the search occurs in order from 

; lo we st n umb er to hi gh est . 



CHECKTAB 



EQU 



10005 


4 


0005 


3 


1 


2050 





10006 


4 


0006 


6 


4 


6046 





10007 


4 


0007 


5 





0131 


1 AGAINMM 


10010 


4 


0010 


3 


1 


2050 





10011 


4 


0011 


2 





0131 





10012 


4 


0012 


6 


4 


6037 





10013 


4 


0013 


7 


1 


2101 


1 


10014 


4 


0014 


4 





0000 





10015 


4 


0015 


6 





0464 


1 


10016 


4 


0016 


1 





0000 





10017 


4 


0017 


1 





0131 





10020 


4 


0020 





4 


6007 





10021 


4 


0021 





4 


6026 






CAF 


ZERO 


AD 


NOV 3 7 MM 


TS 


MPAC+1 


CAF 


ZERO 


INDEX 


MPAC+1 


AD 


PREMM1 


MASK 


L0H7 


COM 




AD 


MMNVMBER 


CCS 


A 


CCS 


MPAC+1 


TC 


AGAINMM 


TC 


V3 7N0N0 



; was CA N0V37MM in Block II 

; the no . of MM in table (minus 1 ) 



was CA PREMM1 in Block II 
obtain whi ch MM this is for 



; MMNUMBER - current table MM number 

; if GR, see if anymore in list 

; yes , get next one (was TCF) 

; last time or passed MM (was TCF) 



0022 


4 


0022 


3 


1 


2050 





0023 


4 


0023 


6 





0131 


1 


0024 


4 


0024 


5 





0463 





0025 


4 


0025 





1 


2147 


1 



Found the index into the major mode table for entry mat ching the 
major mode number input by the user . 



; was CA MPAC+1 in Block II 

; save index for later 

; in Block II , jumped to restart AGC 



CAF 


ZERO 


AD 


MPAC+1 


TS 


MINDEX 



goMMchange 



; Requested MM doesn 't exist 







V3 7N0N0 


EQU 


* 


0026 


4, 0026 


2,4701 


TC 


F ALTON 


0027 


4, 0027 


4, 6002 


TC 


V3 7 BAD 



; come here if MM requested doesn 't exist 



FCADRMM 

For verb 37 , two tables are maintained . Each table has an entry for each 
major mode that can be started from the keyboard . The entries are put 
into the table wi th the entry for the highest major mode coming first , 
to the lowest major mode which is the last entry in the table . 

The FCADRMM table contains the FCADR of the starting job of the major mode. 

The entries in this table must match the entries in PREMM1 below . 











FCADRMM 


1 EQV 


* 


0030 


4 


0030 


22147 





CADR 


P79 


0031 


4 


0031 


22142 





CADR 


P78 


0032 


4 


0032 


22127 





CADR 


P04 


0033 


4 


0033 


22066 


1 


CADR 


P03 


0034 


4 


0034 


22036 


1 


CADR 


P02 


0035 


4 


0035 


22022 


1 


CADR 


P01 


0036 


4 


0036 


22000 


1 


CADR 


POO 



******* 



The PREMM1 table contains the E—bank , major mode , and priority information . 
It is in the following form : 

PPP PPE EEM MMM MMM 

Wh ere , 

the 7 ' M ' bits contain the major mode number 



the 3 
the 5 



bits contain the E-bank number (ignored in Block I) 

bits contain the priori ty at which the job is to be started 



The entries in this table must match the entries in FCADRMM1 above . 













PREMM1 


EQU 


* 


0037 


4 


0037 


2 6117 


1 




DS 


%26117 


0040 


4 


0040 


26116 







DS 


%26116 


0041 


4 


0041 


26004 


1 




DS 


%26004 


0042 


4 


0042 


26003 







DS 


%26003 


0043 


4 


0043 


26002 


1 




DS 


%26002 


0044 


4 


0044 


26001 


1 




DS 


%26001 


0045 


4 


0045 


26000 





; etc **** 
EPREMM1 


DS 
* ** ** 

EQV 


%26000 



MM 79, 
MM 78, 
MM 04, 
MM 03, 
MM 02, 
MM 01, 
MM 00, 



PRIO 13 

PRIO 13 

PRIO 13 

PRIO 13 

PRIO 13 

PRIO 13 

PRIO 13 



10046 4,0046 



00006 1 NOV37MM 
BANK04_2 



EPREMM1-PREMM1-1 ; number of entries in table (minus 1) 



ORG 
INCL 



BANK4 0_1 
bank40_l . asm 



COLOSSUS pp. 310-317 



PINBALL GAME ( file : bank40_l . asm) 



AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 310-317 . 



PROCESS KEYBOARD CHARACTER FROM KEYRUPT 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 310. 



12000 
12001 
12 02 
12003 
12004 
12005 
12006 
12007 



5, 0000 
5, 0001 
5, 0002 

5. 0003 

5. 0004 

5. 0005 
5, 0006 
5, 0007 



1, 2051 
0, 0501 
0, 0412 
0, 0531 
5, 6006 
5, 6016 
5, 6062 
0, 0130 



VBRELDSP) . 



12010 5,0010 1 0,0000 

12011 5, 0011 5, 6015 

12012 5, 0012 5, 6014 1 

12013 5,0013 5,6015 

12014 5,0014 5,6016 

12015 5,0015 2,4713 















CHARIN2 


2016 


5 


0016 


3 





0130 





2017 


5 


0017 


5 





0414 





2020 


5 


0020 


2 





0000 





2021 


5 


0021 





5 


6022 


1 


2022 


5 


0022 





5 


7307 


1 


2023 


5 


0023 





5 


6101 


1 


2024 


5 


0024 





5 


6101 


1 


2025 


5 


0025 





5 


6101 


1 


2026 


5 


0026 





5 


6101 


1 


2027 


5 


0027 





5 


6101 


1 


2030 


5 


0030 





5 


6101 


1 


2031 


5 


0031 





5 


6101 


1 


2032 


5 


0032 





5 


6065 


1 


2033 


5 


0033 





5 


6065 


1 


2034 


5 


0034 





5 


7307 


1 


2035 


5 


0035 





5 


7307 


1 


2036 


5 


0036 





5 


7307 


1 


2037 


5 


0037 





5 


7307 


1 


2040 


5 


0040 





5 


7307 


1 


2041 


5 


0041 





5 


7307 


1 


2042 


5 


0042 





5 


6077 


1 


2043 


5 


0043 





5 


6272 





2044 


5 


0044 





5 


74 62 





2045 


5 


0045 





5 


7307 


1 


2046 


5 


0046 





5 


7307 


1 


2047 


5 


0047 





5 


7307 


1 


2050 


5 


0050 





5 


7307 


1 


2051 


5 


0051 





5 


7307 


1 


2052 


5, 


0052 





5, 


7307 


1 


2053 


5, 


0053 





5, 


7327 






CAF 


ONE 


XCH 


DSPLOCK 


TS 


2122REG 


CCS 


CADRSTOR 


TC 


*+2 


TC 


CHARIN2 


CS 


ELRCODE1 


AD 


MPAC 


CCS 


A 


TC 


* + 4 


TC 


* + 2 


TC 


* + 2 


TC 


CHARIN2 


TC 


RELDSPON 


EQU 


* 


XCH 


MPAC 


TS 


CHAR 


INDEX 


A 


TC 


* + l 


TC 


CHARALRM 


TC 


NUM 


TC 


NUM 


TC 


NUM 


TC 


NUM 


TC 


NUM 


TC 


NUM 


TC 


NUM 


TC 


89TEST 


TC 


89TEST 


TC 


CHARALRM 


TC 


CHARALRM 


TC 


CHARALRM 


TC 


CHARALRM 


TC 


CHARALRM 


TC 


CHARALRM 


TC 


NUM-2 


TC 


VERB 


TC 


ERROR 


TC 


CHARALRM 


TC 


CHARALRM 


TC 


CHARALRM 


TC 


CHARALRM 


TC 


CHARALRM 


TC 


CHARALRM 


TC 


VBRELDSP 



block display syst 

make dsp syst busy, but save old 

C (DSPLOCK) for error light reset 

all keys except ER turn on KR lite if 

CADRSTOR is full. This reminds operator 

to re-establish a flashing display 

which he has obscured with displays of 

his own (see remarks preceding routine 



was BZF CHARIN2 in Block II 

>0 

+ 

<0 

-0 



inputcode function 


1 
2 
3 
4 
5 
6 



11 
12 
13 
14 
15 
16 
1 7 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 





VERB 

ERROR LIGHT RESET 



KEY RELEASE 



2054 


5 


0054 





5 


632 6 


2055 


5 


0055 





5 


6312 


2056 


5 


0056 





5 


6063 


2057 


5 


0051 





5 


7307 


2060 


5 


0060 





5 


6412 


2061 


5 


00 61 





5 


630 6 



TC 
TC 
TC 
TC 
TC 
TC 



POSGN 

NEGSGN 

ENTERJMP 

CHARALRM 

CLEAR 

NOUN 



32 
33 
34 
35 
36 
37 



CLEAR 
NOUN 



12062 5, 0062 00022 1 ELRC0DE1 

12063 5,0063 1,3653 1 ENTERJMP 

12064 5, 0064 14002 



DS 
TC 
DS 



%22 

POST JUMP 
ENTER 

















89TEST 


2065 


5 


0065 


1 





0466 


1 




2066 


5 


0066 





5 


60 72 


1 




2067 


5 


0067 





5 


60 72 


1 




2070 


5 


0070 





1 


2723 







2071 


5, 


0071 





1 


2723 








EQU 

CCS 

TC 

TC 

TC 

TC 



DSPCOUNT 

* + 4 

* + 3 

ENDOFJOB 
ENDOFJOB 



>0 

+ 

<0, block data in if DSPCOUNT is <0 or -0 

-0 



12072 5,0072 3 1,2053 

12073 5,0073 7 0,0467 

12074 5,0074 1 0,0000 

12075 5,0075 5,6101 1 

12076 5,0076 5,7307 1 



CAF 
MASK 

CCS 

TC 

TC 



THREE 

DECBRNCH 

A 

NUM 

CHARALRM 



if DECBRNCH is + , 8 or 9 OK 

if DECBRNCH is +0, reject 8 or 9 



NUM PROCESS NUMERICAL KEYBOARD CHARACTER 

Assembles octal, 3 bits at a time. For decimal, it converts incoming word 

as a fraction , keeping results to DP (double precision) . 

Octal results are left in XREG, YREG, or ZREG . High part of DEC in XREG, 

YREG, ZREG; the low parts in XREGLP, YREGLP, or ZREGLP) . 

DECBRNCH is left at +0 for octal, +1 for +DEC , +2 for -DEC. 

If DSPCOUNT was left -, no more data is accepted . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 311. 



12077 


5, 


0077 


3 


1 , 


2050 





12100 


5, 


0100 


5 


0, 


0414 




NUM 


12101 


5, 


0101 


1 


0, 


0466 


1 


12102 


5, 


0102 





5, 


610 6 





12103 


5, 


0103 





5, 


610 6 





12104 


5, 


0104 





5, 


6105 





12105 


5, 


0105 





1, 


2723 





12106 


5, 


0106 





5, 


6241 





12107 


5, 


0107 


1 


0, 


0504 


1 


12110 


5, 


0110 


3 


1, 


2050 





12111 


5, 


0111 


5 


0, 


0504 





12112 


5, 


0112 





5, 


6113 


1 


12113 


5, 


0113 


2 


0, 


0414 


1 


12114 


5, 


0114 


3 


1, 


3772 





12115 


5, 


0115 


7 


2, 


4664 





12116 


5, 


0116 


5 


0, 


0421 





12117 


5, 


0117 


3 


1, 


2050 





12120 


5, 


0120 


6 


0, 


0466 





12121 


5, 


0121 


5 


0, 


0440 


1 


12122 


5, 


0122 





5, 


7161 





12123 


5, 


0123 


3 


1, 


2053 





12124 


5, 


0124 


7 


0, 


0467 





12125 


5, 


0125 


1 


0, 


0000 





12126 


5, 


0126 





5, 


6137 


1 


12127 


5, 


0127 


2 


0, 


0434 





12130 


5, 


0130 


3 


0, 


0470 


1 


12131 


5, 


0131 


5 


0, 


0022 


1 


12132 


5, 


0132 


4 


0, 


0022 





12133 


5, 


0133 


4 


0, 


0022 





12134 


5, 


0134 


3 


0, 


0022 


1 


12135 


5, 


0135 


6 


0, 


0414 





12136 


5, 


0136 





5, 


6155 




DECTOBIN 


12137 


5, 


0137 


2 


0, 


0434 





12140 


5, 


0140 


3 


0, 


0470 


1 


12141 


5, 


0141 


5 


0, 


0130 





12142 


5, 


0142 


3 


1, 


2050 





12143 


5, 


0143 


5 


0, 


0131 


1 


12144 


5, 


0144 


3 


1, 


2060 





12145 


5, 


0145 





2, 


4353 





12146 


5, 


0146 


3 


0, 


0131 


1 


12147 


5, 


0147 


6 


0, 


0414 





12150 


5, 


0150 


5 


0, 


0131 


1 


12151 


5, 


0151 





5, 


6155 





12152 


5, 


0152 


6 


0, 


0130 






CAF 


ZERO 


TS 


CHAR 


EQU 


* 


CCS 


DSPCOUNT 


TC 


* + 4 


TC 


* + 3 


TC 


* + l 


TC 


ENDOFJOB 


TC 


GETINREL 


CCS 


CLPASS 


CAF 


ZERO 


TS 


CLPASS 


TC 


* + l 


INDEX 


CHAR 


CAF 


RELTAB 


MASK 


LOW5 


TS 


CODE 


CAF 


ZERO 


AD 


DSPCOUNT 


TS 


COUNT 


TC 


DSPIW 


CAF 


THREE 


MASK 


DECBRNCH 


CCS 


A 


TC 


DECTOBIN 


INDEX 


INREL 


XCH 


VERBREG 


TS 


CYL 


CS 


CYL 


CS 


CYL 


XCH 


CYL 


AD 


CHAR 


TC 


ENDNMTST 


EQU 


* 


INDEX 


INREL 


XCH 


VERBREG 


TS 


MPAC 


CAF 


ZERO 


TS 


MPAC+1 


CAF 


TEN 


TC 


SHORTMP 


XCH 


MPAC+1 


AD 


CHAR 


TS 


MPAC+1 


TC 


ENDNMTST 



>0 

+ 

<0, block datain if DSPCOUNT is <0 or -0 

-0 

if CLPASS is >0 or +0, make it +0 



was CA DSPCOUNT in Block II 



+O=octal, +l=+dec, +2=-dec 

>0 

+0 (octal) 



sum x 2EXP-14 in MPAC 



10 x 3EXP-14 

10SUM X 2EXP-28 in MPAC, MPAC+1 



no overflow 

overflow, must be 5th character 



12153 5,0153 5 0,0130 



12154 5,0154 5,6176 1 

















ENDNMTST 


12155 


5, 


0155 


2 


0, 


0434 







12156 


5, 


0156 


5 


0, 


0410 


1 




12151 


5, 


0151 


4 


0, 


0466 


1 




12160 


5, 


0160 


2 


0, 


0434 







12161 


5, 


0161 


6 


5, 


6232 


1 




12162 


5, 


0162 


1 


0, 


0000 







12163 


5, 


0163 





5, 


6161 


1 




12164 


5, 


0164 





5, 


6166 







12165 


5, 


0165 





5, 


6161 


1 




12166 


5, 


0166 





5, 


6110 


1 




12161 


5, 


0161 





5, 


6221 





ENDNVM 


12110 


5, 


0110 


3 


1, 


2053 







12111 


5, 


0111 


7 


0, 


0461 







12112 


5, 


0112 


1 


0, 


0000 







12113 


5, 


0113 





5, 


6116 


1 


ENDALL 


12114 


5, 


0114 


4 


0, 


0466 


1 




12115 


5, 


0115 





5, 


623 








TC 


DECEND 


EQV 


* 


INDEX 


INREL 


TS 


VERBREG 


CS 


DSPCOVNT 


INDEX 


INREL 


AD 


CRITCON 


CCS 


A 


TC 


* + 4 


TC 


* + 2 


TC 


* + 2 


TC 


ENDNVM 


TC 


MORNUM 


EQV 


* 


CAF 


THREE 


MASK 


DECBRNCH 


CCS 


A 


TC 


DECEND 


EQV 


* 


CS 


DSPCOVNT 


TC 


MORNVM+1 



was BZF ENDNVM in Block II 

>0 

+0, DSPCOVNT = CRITCON 

<0 

-0 

- , DSPCOVNT G/ CRITCON 



block NVMIN by placing DSPCOVNT 
negatively 



12116 
12111 



5, 0116 4 
5, 0111 6 



1,2051 
, 0434 1 



12200 5, 0200 1 0, 0000 

12201 5, 0201 5, 6205 

12202 5, 0202 5, 6204 1 

12203 5, 0203 5, 6204 1 

12204 5,0204 5,6114 



EQV 


* 


CS 


ONE 


AD 


INREL 


CCS 


A 


TC 


* + 4 


TC 


* + 2 


TC 


* + l 


TC 


ENDALL 



was BZMF ENDALL in Block II 

>0 

+0, INREL=0, 1 (VBREG,NNREG) , leave whole 

<0, INREL=0, 1 (VBREG,NNREG) , leave whole 

-0, INREL = 0, 1 (VBREG, NNREG) , leave whole 



2205 


5, 


0205 





2, 4314 





mult su 


2206 


5, 


02 6 




6231 


1 


in MPAC 


2201 


5, 


0201 


3 


1, 2053 







2210 


5, 


0210 


7 


0, 0461 







2211 


5, 


0211 


2 


0, 0000 







2212 


5, 


0212 





5, 6212 







2213 


5, 


0213 





5, 6220 


1 





TC DMP 

mult sum X2EXP-28 in MPAC, MPAC+1 by 



12214 5,0214 4 0,0131 

12215 5, 0215 5 0, 0131 1 

12216 5,0216 4 0,0132 
12211 5,0211 5 0,0132 1 



PDECSGN 



12220 


5, 


0220 


3 


0, 0132 


1 




12221 


5, 


0221 


2 


0, 0434 







12222 


5, 


0222 


5 


0, 0413 


1 




12223 


5, 


0223 


3 


0, 0131 


1 




12224 


5, 


0224 


2 


0, 0434 







12225 


5, 


0225 


5 


0, 0410 


1 




12226 


5, 


0226 





5, 6114 





MORNVM 


12221 


5, 


0221 


1 


0, 0466 


1 




12230 


5, 


0230 


5 


0, 0466 







12231 


5, 


0231 





1, 2123 





CRITCON 


12232 


5, 


0232 




00022 


1 




12233 


5, 


0233 




00020 







12234 


5, 


0234 




00012 


1 




12235 


5, 


0235 




00005 


1 




12236 


5, 


0236 




00000 


1 


DECON 


12231 


5, 


0231 




05114 







12240 


5, 


0240 




13261 








ADRES 


DECON 


+2 




CAF 


THREE 


MASK 


DECBRNCH 


INDEX 


A 


TC 


* + 


TC 


PDECSGN 


CS 


MPAC+1 


TS 


MPAC+1 


CS 


MPAC+2 


TS 


MPAC+2 


EQV 


* 


XCH 


MPAC+2 


INDEX 


INREL 


TS 


XREGLP-2 


XCH 


MPAC+1 


INDEX 


INREL 


TS 


VERBREG 


TC 


ENDALL 


EQV 


* 


CCS 


DSPCOVNT 


TS 


DSPCOVNT 


TC 


ENDOFJOB 


EQV 


* 


DS 


%22 


DS 


%20 


DS 


%12 


DS 


%5 


DS 


%0 


EQV 


* 


DS 


%05114 


DS 


%13261 



if INREL=2, 3, 4 (R1,R2,R3) , convert to frac 
2EXP14/10EPX5. Gives ( sum/1 0EXP5) X2EXP-1 4 



case (was DCS, DXCH in Block II) 



decrement DSPCOVNT 



dec 18 
dec 16 
dec 1 



2EXP14/10EXP5 = .16384 DEC 



GET INREL 

Gets proper data register relative address for current C(DSPCOVNT) and 

puts into INREL: +0 VERBREG, 1 NOVNREG, 2 XREG, 3 YREG, 4 ZREG 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 313. 













GETINREL 


2241 


5 


0241 


2 


0, 0466 


1 


2242 


5 


0242 


3 


5, 6245 


1 


2243 


5 


0243 


5 


0, 0434 


1 


2244 


5, 


0244 





0, 0001 




INRELTAB 


2245 


5 


0245 




00004 





2246 


5 


0246 




00004 





2247 


5 


024 7 




00004 





2250 


5 


0250 




00004 





2251 


5 


0251 




00004 





2252 


5 


0252 




00003 


1 


2253 


5 


0253 




00003 


1 


2254 


5 


0254 




00003 


1 


2255 


5 


0255 




00003 


1 


2256 


5 


0256 




00003 


1 


2257 


5 


0257 




00002 





2260 


5 


0260 




00002 





2261 


5 


02 61 




00002 





22 62 


5 


02 62 




00002 





2263 


5 


02 63 




00002 





2264 


5 


0264 





5, 6271 





22 65 


5 


02 65 




00001 





2266 


5 


0266 




00001 





22 67 


5 


02 6 7 




00000 


1 


2270 


5, 


0270 




00000 


1 


2271 


5 


02 71 





1, 2723 


CCSHOLE 



EQO 


* 


INDEX 


DSPCOVNT 


CAF 


INRELTAB 


TS 


INREL 


TC 


Q 


EQV 


* 


DS 


%4 


DS 


%4 


DS 


%4 


DS 


%4 


DS 


%4 


DS 


%3 


DS 


%3 


DS 


%3 


DS 


%3 


DS 


%3 


DS 


%2 


DS 


%2 


DS 


%2 


DS 


%2 


DS 


%2 


TC 


CCSHOLE 


DS 


%1 


DS 


%1 


DS 


%0 


DS 


%0 


TC 


ENDOFJOB 



(A TEMP, REG) 



R3D5, 


= DSPCOVNT 


R3D4, 


1 


R3D3, 


2 


R3D2, 


3 


R3D1, 


4 


R2D5, 


5 


R2D4, 


6 


R2D3, 


7 


R2D2, 


SD 


R2D1, 


3D 


R1D5, 


10D 


R1D4, 


11D 


R1D3, 


12D 


R1D2, 


13D 


R1D1, 


14D 


no DSPCOVNT numbers 


ND2, 


16D 


ND1, 


17D 


VD2, 


18D 


VD1, 


19D 



can 't find this anywhere; best guess 



VERB 

Verb key was pressed; prepare to enter a 2 decimal digi t verb . 

Blank the verb display and call ENDOFJOB . 

NOUN 

Noun key was pressed; prepare to enter a 2 decimal digi t noun . 

Blank the noun display and call ENDOFJOB . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 314. 

















VERB 


EQV 


* 


122 72 


5 


0272 


3 


1 


2050 







CAF 


ZERO 


12273 


5 


0273 


5 





0470 


1 




TS 


VERBREG 


12274 


5, 


0274 


3 


2 


4675 


1 


NVCOM 


CAF 
EQV 


VD1 
* 


12275 


5 


0275 


5 





0466 







TS 


DSPCOVNT 


12276 


5 


027 6 





5 


6540 







TC 


2BLANK 


122 7 7 


5, 


027 7 


3 


1 


2051 


1 




CAF 


ONE 


12300 


5 


0300 


5 





0467 


1 




TS 


DECBRNCH 


12301 


5 


0301 


3 


1 


2050 







CAF 


ZERO 


12302 


5 


0302 


5 





0502 







TS 


REQRET 


12303 


5, 


0303 


3 


2 


4553 







CAF 


END INST 


12304 


5, 


0304 


5 





0433 





; to TC 


TS 
ENDOFJOB 


ENTRET 


12305 


5, 


0305 





1 


2723 





NOVN 


TC 
EQV 


ENDOFJOB 

* 


12306 


5 


0306 


3 


1 


2050 







CAF 


ZERO 


12307 


5 


0307 


5 





0471 







TS 


NOVNREG 


12310 


5, 


0310 


3 


2 


4676 


1 




CAF 


ND1 


12311 


5, 


0311 





5 


62 75 


1 




TC 


NVCOM 



set for dec V/N code 

set for ENTPASO 

if DSPALARM occurs before first ENTPASO 

or NVSVB, ENTRET must already be set 



ND1, OCT 21 (DEC 17) 



NEGSGN 

Turn the minus sign on for the register selected by DSPCOVNT . 

Call ENDOFJOB when done. 

POSGN 

Turn the plus sign on for the register selected by DSPCOVNT . 

Call ENDOFJOB when done. 

Adapted from the AGC Block II COLOSSVS rev 249 assembly listing, 
Oct 28, 1968, p. 314. 



EQV 



12312 5, 0312 5, 6367 

12313 5, 0313 5, 6353 1 

12314 5,0314 3 1,2052 1 



12315 5, 0315 2 0, 0434 

12316 5,0316 6 1,2072 

12317 5,0317 6 0,0467 1 
12320 5,0320 5 0,0467 1 

















PIXCLPAS 


2321 


5 


0321 


1 





0504 


1 




2322 


5 


0322 


3 


1 


2050 







2323 


5 


0323 


5 





0504 







2324 


5 


0324 





5 


6325 







2325 


5, 


0325 





1 


2723 





POSGN 


2326 


5 


0326 





5 


6367 







2327 


5 


0327 





5 


6332 







2330 


5 


0330 


3 


1 


2051 


1 




2331 


5 


0331 





5 


6315 








TC 


SIGNTEST 


TC 


M ON 


CAF 


TWO 


EQV 


* 


INDEX 


INREL 


AD 


BIT7 


AD 


DECBRNCH 


TS 


DECBRNCH 


EQV 


* 


CCS 


CLPASS 


CAF 


ZERO 


TS 


CLPASS 


TC 


* + l 


TC 


ENDOFJOB 


EQV 


* 


TC 


SIGNTEST 


TC 


P ON 


CAF 


ONE 


TC 


BOTHSGN 



set DEC compu bit to 1 (in DECBRNCH) 

Bit 5 for Rl, bit 4 for R2 , bit 3 for R3 



if CLPASS is + or +0, make it +0 



P_ON 

Turn the plus sign on for register selected by DSPCOUNT . 

Ret urn when done . 

M_ON 

Turn the minus sign on for register selected by DSPCOUNT . 

Ret urn when done . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 314. 



2332 


5 


0332 


3 





0001 





2333 


5, 


0333 


5 


0, 


0547 


1 


2334 


5 


0334 





5 


6241 





2335 


5 


0335 


2 





0434 





2336 


5 


0336 


3 


5 


63 62 





2337 


5 


0337 


5 





0420 


1 


2340 


5 


0340 


6 


1 


2051 


1 


2341 


5, 


0341 


5 


0, 


0417 




SGNCOM 



12342 5,0342 3 1,2050 

12343 5, 0343 5 0, 0421 

12344 5, 0344 3 0, 0420 1 

12345 5, 0345 5, 7253 1 

12346 5,0346 3 1,2066 

12347 5,0347 5 0,0421 

12350 5,0350 3 0,0417 

12351 5, 0351 5, 7253 1 



EQV 


* 


XCH 


s 


TS 


LXCH_LPR1 


TC 


GET INREL 


INDEX 


INREL 


CAF 


SGNTAB-2 


TS 


SGNOFF 


AD 


ONE 


TS 


SGNON 


EQV 


* 


CAF 


ZERO 


TS 


CODE 


XCH 


SGNOFF 


TC 


_11DSPIN 


CAF 


BIT11 


TS 


CODE 


XCH 


SGNON 


TC 


11DSPIN 



was LXCH Q in block II 

save ret urn address in faux LP 



12352 


5, 


0352 








0547 


1 


12353 


5 


0353 


3 





0001 





12354 


5, 


0354 


5 





0547 


1 


12355 


5 


0355 





5 


6241 





12356 


5 


0356 


2 





0434 





12357 


5 


0357 


3 


5 


63 62 





12360 


5 


0360 


5 





0417 





12361 


5 


0361 


6 


1 


2051 


1 


123 62 


5 


0362 


5 





0420 


1 


12363 


5, 


0363 





5 


6342 


1 


12364 


5 


0364 






10005 


1 


12365 


5 


0365 






10003 


1 


12366 


5, 


0366 






10000 


1 



LXCH_LPRET 



EQV 


* 


XCH 





TS 


LXCH_LPR 


TC 


GET INREL 


INDEX 


INREL 


CAF 


SGNTAB-2 


TS 


SGNON 


AD 


ONE 


TS 


SGNOFF 


TC 


SGNCOM 


EQV 


* 


DS 


%5 


DS 


%3 


DS 


%0 



was LXCH Q in block II 

save return address in faux LP 



-Rl 
-R2 
-R3 



SIGNTEST 

Test whether this is a valid point for entering a + or - sign character . 

Returns if valid; calls ENDOFJOB if invalid . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 314. 



SIGNTEST 



2367 


5, 


0367 


3 





0001 







2370 


5, 


0370 


5 





0547 


1 


; allows 


2371 


5, 


0371 


3 


1 


2053 







2372 


5, 


03 72 


7 





0467 







2373 


5, 


0373 


1 





0000 







2374 


5, 


0374 





1 


2723 







2375 


5, 


0375 


4 


2 


4635 


1 




2376 


5, 


0376 





5 


6404 


1 




2377 


5, 


0377 


4 


2 


4 63 6 


1 




2400 


5, 


0400 





5 


6404 


1 




2401 


5, 


0401 


4 


2 


4 637 







2 4 02 


5, 


0402 





5 


6404 


1 




2403 


5, 


0403 





1 


2723 





SGNTST1 


2404 


5, 


0404 


6 





0466 








EQU 
XCH 

TS 



LXCH_LPRET 



only when DSPC0UNT=R1D1 



CAF 
MASK 

CCS 
TC 

CS 
TC 
CS 
TC 
CS 
TC 
TC 

EQV 

AD 



THREE 
DECBRNCH 
A 
ENDOFJOB 

R1D1 

SGNTST1 

R2D1 

SGNTST1 

R3D1 

SGNTST1 

ENDOFJOB 



DSPCOUNT 



was LXCH Q in block 11 

save return address in faux LP 



R2D1, or D3D1 . Allows only first of 
consecutive +/- characters, 
if low2 bits of DECBRNCH not = 0, sign 
for this word already in, reject. 



DSPCOUNT is R1D1? 



no match found, sign illegal 



12405 5,0405 1 0,0000 

12406 5,0406 0,0001 

12407 5,0407 0,0547 1 

12410 5,0410 0,0001 

12411 5,0411 0,0547 1 



CCS 

TC 

TC 

TC 

TC 



A 

Q 

LXCH_LPRET 

Q 

LXCH_LPRET 



was BZF *+2 in Block 11 

>0 , no match, check next register 

+0 , match found, sign is legal 

<0, no match, check next register 

-0, match found, sign is legal 



CLEAR PROCESS CLEAR KEY 

Clear blanks which Rl , R2 , R3 is current or last to be displayed (pertinent 
XREG, YREG, ZREG is cleared) . Successive clears take care of each RX L/ 
RC until Rl is done, then no further action. 

The single component load verbs allow only the single RC that is appropriate 
to be cleared . 

CLPASS = 0, PASSO, can be backed up 
CLPASS = +NZ, H1PASS, can be backed up 
CLPASS = -NZ, PASSO, cannot be backed up 

Adapted from the AGC Block 11 COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 316. 



12412 


5, 


0412 


1 





0466 


1 


12413 


5, 


0413 


6 


1 


2051 


1 


12414 


5, 


0414 





5 


6416 


1 


12415 


5, 


0415 


6 


1 


2051 


1 


12416 


5, 


0416 


2 





0000 





12417 


5, 


0417 


3 


5 


6245 


1 


12420 


5, 


0420 


5 





0434 


1 


12421 


5, 


0421 


1 





0504 


1 


12422 


5, 


0422 





5 


6431 


1 


12423 


5, 


0423 





5 


6425 


1 


12424 


5, 


0424 





5 


6425 


1 


12425 


5, 


0425 


3 


1 


2050 





12426 


5, 


0426 


6 





0434 


1 


12427 


5, 


0427 





5 


6464 


1 


12430 


5, 


0430 





5 


6454 


1 

CLPASHI 



12431 5, 0431 1 0, 0434 

12432 5, 0432 5 0, 0434 1 

12433 5,0433 5,6464 1 

12434 5, 0434 3 5, 6536 1 

12435 5, 0435 6 0, 0502 

12436 5, 0436 5 0, 0502 

12437 5,0437 3 1,2050 

12440 5, 0440 6 0, 0434 1 

12441 5, 0441 5 0, 0422 

12442 5,0442 1 0,0470 

12443 5,0443 5,6446 1 

12444 5,0444 5,6446 1 

12445 5,0445 5,6446 1 

12446 5,0446 5 0,0470 1 

12447 5,0447 1,3565 1 
12450 5, 0450 14327 1 



12451 
12452 



5, 0451 3 
5, 0452 6 



1,2050 
0, 0422 



EQU 


* 


CCS 


DSPCOUNT 


AD 


ONE 


TC 


*+2 


AD 


ONE 


INDEX 


A 


CAF 


INRELTAB 


TS 


INREL 


CCS 


CLPASS 


TC 


CLPASHI 


TC 


*+2 


TC 


* + l 


CAF 


ZERO 


AD 


INREL 


TC 


LEGALTST 


TC 


CLEAR1 


EQU 


* 


CCS 


INREL 


TS 


INREL 


TC 


LEGALTST 


CAF 


DOUBLK+2 


AD 


REQRET 


TS 


REQRET 


CAF 


ZERO 


AD 


INREL 


TS 


MIXTEMP 


CCS 


VERBREG 


TC 


* + 3 


TC 


* + 2 


TC 


* + l 


TS 


VERBREG 


TC 


BANKCALL 


DS 


UPDATVB 


CAF 


ZERO 


AD 


MIXTEMP 



do not change DSPCOUNT because may later 

fail LEGALTST 

must set INREL, even for HIPASS 



+0, if CCLPASS is +0 or - 
was CA INREL in Block II 



it is PASSO 



+3 to - number, backs data requests 
was ADS REQRET in Block II 



was CA INREL in Block II 

temp storage for INREL 

was DIM VERBREG in Block II 

decrement VERB and redisplay 
was CA MIXTEMP in Block II 



12453 5, 0453 5 0, 0434 1 



restore INREL 



12454 5,0454 5,6461 1 

12455 5, 0455 3 0, 0504 

12456 5,0456 6 1,2051 1 

12457 5,0451 5 0,0504 

12460 5,0460 1,2723 



EQU 


* 


TC 


CLR5 


XCH 


CLPASS 


AD 


ONE 


TS 


CLPASS 


TC 


ENDOFJOB 



was INCR CLPASS in Block 11 
only If CLPASS is + or +0 
set for higher pass 



CLP. 5 

blanks 5 char display word by calling _5BLANK, but avoids TC GETINREL . 

Returns when done. 

Adapted from the AGC Block 11 COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 316. 



12461 5,0461 3 0,0001 

12462 5,0462 5 0,0547 1 

12463 5,0463 5,6476 1 



EQO 


* 


XCH 


Q 


TS 


LXCH LPRET 


TC 


5BLANK+3 



was LXCH Q in block 11 

save return address in faux LP 

uses _5BLANK, but avoids its TC GETINREL 



LEGALTST 

Returns if LEGAL, calls ENDOFJOB if illegal. 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 316. 















LEGALTST 


EQU 


* 


2464 


5 


0464 


6 


1 


2047 





AD 


NEG2 


2 4 65 


5, 


0465 


1 





0000 





CCS 


A 


2466 


5 


0466 








0001 





TC 


Q 


2467 


5 


0467 





5 


62 71 





TC 


CCSHOLE 


2470 


5 


0470 





1 


2723 





TC 


ENDOFJOB 


2471 


5, 


0471 








0001 





TC 


Q 



; LEGAL, INREL G/ 2 



; ILLEGAL, INREL = 0, 1 
; LEGAL, INREL = 2 



_5BLANK 

blanks 5 char display word in Rl , R2 , or R3 . It also zeroes XREG, YREG or 
ZREG . Place any + DSPCOUNT number for pertinent RC into DSPCOUNT . 
DSPCOUNT is left set to left most DSP numb for RC just blanked . 
Returns when done. 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 316. 



12472 5,0472 5 0,0466 



DSPCOUNT 



needed for BLANKSUB 



12473 


5 


0473 


3 





0001 





12474 


5, 


0474 


5 


0, 


0547 


1 


12475 


5 


0475 





5 


6241 





12476 


5 


0476 


3 


1 


2050 





12477 


5 


0477 


2 





0434 





12500 


5 


0500 


5 





0470 


1 


12501 


5 


0501 


2 





0434 





12502 


5 


0502 


5 





0473 


1 


12503 


5 


0503 


5 





0421 





12504 


5 


0504 


2 





0434 





12505 


5 


0505 


4 


1 


2072 


1 


12506 


5 


0506 


7 





0467 





12507 


5 


0507 


7 


5 


6537 


1 


12510 


5 


0510 


5 





0467 


1 


12511 


5 


0511 


2 





0434 





12512 


5 


0512 


3 


5 


652 7 


1 


12513 


5 


0513 


5 





0440 


1 


12514 


5, 


0514 





5, 


7161 




5BLANK1 



12515 5, 0515 2 0, 0434 

12516 5,0516 3 5,6532 

12517 5,0517 5 0,0466 

12520 5, 0520 5, 6540 

12521 5,0521 4 1,2052 

12522 5,0522 6 0,0466 

12523 5,0523 5 0,0466 



EQU 


* 


XCH 


Q 


TS 


LXCH_LPRET 


TC 


GETINREL 


CAF 


ZERO 


INDEX 


INREL 


TS 


VERBREG 


INDEX 


INREL 


TS 


XREGLP-2 


TS 


CODE 


INDEX 


INREL 


CS 


BIT7 


MASK 


DECBRNCH 


MASK 


BRNCHCON 


TS 


DECBRNCH 


INDEX 


INREL 


CAF 


SINBLANK-2 


TS 


COUNT 


TC 


DSP IN 


EQU 


* 


INDEX 


INREL 


CAF 


DOUBLK-2 


TS 


DSPCOUNT 


TC 


_2BLANK 


CS 


TWO 


AD 


DSPCOUNT 


TS 


DSPCOUNT 



was LXCH Q in block II 

save ret urn address in faux LP 



zero X, Y, Z reg 



zero pertinent DEC comp bit 



zero low 3 bits 



blank isolated char separately 



was ADS DSPCOUNT in Block II 



12524 5, 0524 5, 6540 

12525 5, 0525 2 0, 0434 

12526 5,0526 3 2,4633 
12521 5,0527 5 0,0466 
12530 5,0530 0,0541 1 



12531 5, 0531 

12532 5, 0532 

12533 5, 0533 



12534 5, 0534 

12535 5, 0535 

12536 5, 0536 

12537 5,0537 



SINBLANK 



00016 
00005 1 
00004 



00015 
00011 
00003 



TC 


2BLANK 


INDEX 


INREL 


CAF 


R1D1-2 


TS 


DSPCOUNT 


TC 


LXCH_LPRET 


EQU 


* 


DS 


%16 


DS 


%5 


DS 


%4 


EQV 


* 


DS 


%15 


DS 


m 


DS 


%3 



set DSPCOUNT to leftmost DSP number 
of REG, just blanked 



DEC 13 
DEC 9 



77774 BRNCHCON 



_2BLANK 

blanks 2 char, place DSP number of left char of the pair into DSPCOUNT . 

This number is left in DSPCOUNT . Returns when done. 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 317. 



12540 
12541 



5, 0540 3 0, 0001 
5, 0541 5 0, 0602 



12542 5,0542 3 1,2050 

12543 5,0543 6 0,0466 

12544 5, 0544 5 0, 0021 1 

12545 5, 0545 4 5, 6563 

12546 5,0546 2 0,0000 

12547 5,0547 2 0,0021 

12550 5, 0550 3 0, 0512 1 

12551 5, 0551 1 0, 0000 

12552 5,0552 5,6556 1 

12553 5, 0553 5, 6555 1 

12554 5, 0554 5, 6555 1 

12555 5, 0555 5, 6557 

12556 5, 0556 3 0, 0505 1 

12557 5,0557 6 1,2051 1 

12560 5, 0560 5 0, 0505 1 

12561 5, 0561 2 0, 0000 1 

12562 5, 0562 0, 0602 

12563 5, 0563 04000 BLANKCON 



EQU 


* 


XCH 





TS 


SAVEQ 


CAF 


ZERO 


AD 


DSPCOUNT 


TS 


SR 


CS 


BLANKCON 


INHINT 




INDEX 


SR 


XCH 


DSP TAB 


CCS 


A 


TC 


* + 4 


TC 


* + 2 


TC 


* + l 


TC 


* + 2 


XCH 


NOUT 


AD 


ONE 


TS 


NOUT 


RELINT 




TC 


SAVEQ 


DS 


%4000 



was CA DSPCOUNT in Block II 



was BZMF *+2 in Block II 

>0 

+0, if old contents -, NOUT OK 

<0, if old contents -, NOUT OK 

-0, if old contents -, NOUT OK 

was INCR NOUT in Block II 

if old contents +, +1 to NOUT 



BANK4 0_2 



ORG 
INCL 



BANK41_1 
bank41_l . asm 



COLOSSUS pp. 318-329 



DISPLAY ROUTINES ( file : bank41_l . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 318-329. 



ENTER PROCESS ENTER KEY 

Enter pass is the execute function. Higher order enters are to load 
data. The sign of REQRET determines the pass, + for pass 0, - for higher 
passes . 

Machine CADR to be specified (MCTBS) nouns desire an ECADR to be loaded 
when used with load verbs, monitor verbs, or display verbs (except 
verb = fixed memory display , which requires a FCADR) . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 318. 



14000 6, 0000 

14001 6,0001 



. 7505 NVSUBR 
, 6723 1 L0ADLV1 



TC 
TC 



NVSUB1 
LOADLV 



standard lead-ins, don't move 



14002 
14003 
14004 
14005 



6, 0002 3 

6, 0003 5 

6, 0004 3 

6, 0005 5 



1,2050 

0, 0504 

2,4553 

0, 0433 



14006 6,0006 1 0,0502 1 

14001 6,0001 6,6040 

14010 6,0010 6,6040 

14011 6,0011 6,6012 1 



EQV 


* 


CAF 


ZERO 


TS 


CLPASS 


CAF 


END INST 


TS 


ENTRET 


CCS 


REQRET 


TC 


SNTP AS 


TC 


ENTPASO 


TC 


* + l 



If 

if 
if 



pass 
pass 
not pass 



not first pass thru ENTER, so enter data word 



14012 
14013 



ENTPASHI 



6, 0012 3 6, 6036 1 
6, 0013 6 0, 0502 



EQV 
CAF 

AD 



MMADREF 
REQRET 



; if L/2 char in for MM code, alarm 



14014 6,0014 1 0,0000 

14015 6,0015 6,6021 1 

14016 6,0016 6,6020 
14011 6,0011 6,6021 1 
14020 6,0020 6,6032 



4021 


6, 


0021 


3 


1 , 


2053 





4022 


6, 


0022 


7 


0, 


0461 





4023 


6, 


0023 


1 


0, 


0000 





4024 


6, 


0024 





6, 


6026 





4025 


6, 


0025 





6, 


6032 





4026 


6, 


0026 


1 


, 


0466 


1 


4021 


6, 


0021 





6, 


6341 


1 


4030 


6, 


0030 





6, 


6341 


1 


4031 


6, 


0031 





6, 


6032 




ACCEPTWD 


4032 


6, 


0032 


4 


0, 


0502 


1 


4033 


6, 


0033 


5 


0, 


0502 





4034 


6, 


0034 





2, 


4110 





4035 


6, 


0035 





0, 


0502 






CCS 

TC 

TC 

TC 

TC 

CAF 

MASK 

CCS 

TC 

TC 

CCS 

TC 

TC 

TC 

EQV 

CS 
TS 
TC 
TC 



* + 4 
*+2 

* + 2 
ACCEPTWD 

THREE 

DECBRNCH 

A 

* + 2 

ACCEPTWD 
DSPCOVNT 
GODSPALM 
GODSPALM 

* + l 



REQRET 
REQRET 
FLASHOFF 
REQRET 



and recycle (decide at MMCHANG+1) 

>0 

+ 

<0 

-0, was BZF ACCEPTWD in Block II 

if DEC, alarm if L/5 char in for data, 
but leave REQRET - and flash on, so 
operator can supply missing numerical 
characters and continue, 
octal, any number of char OK. 

less than 5 char DEC (DSPCOVNT is +) 
less than 5 char DEC (DSPCOVNT is +) 
5 char in (DSPCOVNT is -) 



5 char in (DSPCOVNT is -) 
set REQRET + 



ENTEXIT 
14036 6,0036 15351 1 MMADREF 

14031 6,0031 00034 LOWVERB 



EQV 

DS 
DS 



ENTRET 

MMCHANG+1 

28 



assumes TC REGMM at MMCHANG 

lower verb that avoids nount test. 



first pass thru ENTER, so execute VERB/NOVN 

















ENTPASO 


EQV 


4040 


6, 


0040 


3 


1, 


2050 







CAF 


4041 


6, 


0041 


5 


0, 


0461 


1 




TS 


4042 


6, 


0042 


4 


2, 


4615 







CS 


4043 


6, 


0043 


5 


0, 


0466 





; test VERB 
TESTVB 


TS 
EQV 


4044 


6, 


0044 


4 


0, 


0410 







CS 


4045 


6, 


0045 


5 


0, 


0530 


1 




TS 


4046 


6, 


0046 


6 


6, 


6031 







AD 


4041 


6, 


0041 


1 


0, 


0000 







CCS 


4050 


6, 


0050 





6, 


6054 







TC 


4051 


6, 


0051 





6, 


6053 


1 




TC 


4052 


6, 


0052 





6, 


6053 


1 




TC 


4053 


6, 


0053 





6, 


6151 


1 


; test NOVN 
TES TNN 


TC 
EQV 



ZERO 

DECBRNCH 
VD1 
DSPCOVNT 



VERBREG 

VERBSAVE 

LOWVERB 



* + 4 
*+2 

* + l 
VERBFAN 



noun verb sub enters here 



; block further num char, so that stray 

; char do not get into verb or nount lights. 



if verb is G/E LOWVB , skip noun test 
save verb for possible recycle . 
LOWVERB - VB 

was BZMF VERBFAN in Block II 

>0 

+0, VERB G/E LOWVERB 

<0, VERB G/E LOWVERB 

-0, VERB G/E LOWVERB 



set MIXBR and put the noun address into NNADTEM 
MIXBR is an enumerated type: 

1 = normal nouns 

2 = mixed nouns 



14054 
14055 



6, 0054 3 6, 6124 
6, 0055 1, 3526 



14056 6,0056 2 0,0435 1 
14051 6,0051 6,6051 



14060 6,0060 6,6062 

14061 6,0061 6,6231 1 



CAF 


LODNNLOC 


TC 


DXCHJVMP 


INDEX 


MIXBR 


TC 


* + 


TC 


* + 2 


TC 


MIXNOVN 



was DCA LODNNLOC, DXCH Z in Block II 
bank jump to noun tab le read rtne 



computed GOTO 



returns here for normal noun 
returns here for mixed noun 



normal noun, so test noun address table entry (NNADTEM) 



14062 6,0062 1 0,0443 

14063 6,0063 6,6147 

14064 6,0064 6,6341 1 

14065 6,0065 6,6013 



CCS 


NNADTEM 


TC 


VERBFAN-2 


TC 


GODSPALM 


TC 


REQADD 



normal 

normal If + 

not in use if +0 

specify machine CADR if 



NNADTEM was — 0, so just increment noun address (in NOUNCADR) and 
set the result in NOUNADD 



4066 


6, 


0066 


3 


0, 


0506 


1 


XCH 


NOUNCADR 


4067 


6, 


0067 


6 


1, 


2051 


1 


AD 


ONE 


4070 


6, 


0070 


5 


0, 


0506 


1 


TS 


NOUNCADR 


4071 


6, 


0071 





2, 


4625 


1 


TC 


SETNADD 


4 072 


6, 


0072 





6, 


6132 


1 


TC 


INTMCTBS+3 














; NNADTEM was -, so 


noun address n 














REQADD 


EQV 


* 


4073 


6, 


0073 


3 


1, 


2 62 


1 


CAF 


BIT15 


4074 


6, 


0074 


5 


0, 


0504 





TS 


CLPASS 


4075 


6, 


0075 


4 


2, 


4553 


1 


CS 


END INST 


4076 


6, 


0076 


6 


0, 


0433 





AD 


ENTEXIT 


4077 


6, 


0077 


1 


0, 


0000 





CCS 


A 


4100 


6, 


0100 





6, 


610 4 


1 


TC 


* + 4 


4101 


6, 


0101 





6, 


6103 





TC 


* + 2 


4102 


6, 


0102 





6, 


6104 


1 


TC 


* + 2 


4103 


6, 


0103 





6, 


6105 





TC 


* + 2 


4104 


6, 


0104 





6, 


6127 





TC 


INTMCTBS 


4105 


6, 


0105 





6, 


6274 





TC 


REQDATZ 


4106 


6, 


0106 


1 


0, 


0467 





CCS 


DECBRNCH 


4107 


6, 


0107 





2, 


4474 


1 


TC 


ALMCYCLE 


4110 


6, 


0110 


4 


2, 


4675 





CS 


VD1 


4111 


6, 


0111 


5 


0, 


0466 





TS 


DSPCOUNT 


4112 


6, 


0112 


1 


0, 


0531 


1 


CCS 


CADRSTOR 


4113 


6, 


0113 





6, 


6116 


1 


TC 


* + 3 


4114 


6, 


0114 





6, 


6117 





TC 


USEADD 


4115 


6, 


0115 





6, 


6116 


1 


TC 


* + l 


4116 


6, 


0116 





2, 


4760 


1 


TC 


FLASHON 



augment machine CADR if 



was INCR NOUNCADR in Block II 



set NOUNADD 



set CLPASS for passO only 

test if reach here from internal or 
from external 

was BZF *+2 in Block II 

>0 

+ 

<0 

—0, external mach CADR to be specified 



external mach CADR to be specified 

alarm and recycle if decimal used 
for MCTBS 
octal used OK 
block num char in 



external MCTBS display will leave flash 
on if ENDIDLE not = +0 



noun address has now been loaded into the Z register . Copy it into 
NOUNCADR and NOUNADD and then jump to the VERBFAN . 



4117 


6, 


0117 


3 


0, 0474 





4120 


6, 


0120 





2, 4616 


1 


4121 


6, 


0121 


3 


6, 6124 





4122 


6, 


0122 





1, 3526 





4123 


6, 


0123 





6, 6151 


1 


4124 


6, 


0124 




16114 


1 


4125 


6, 


0125 




00000 


1 



1 LODNNLOC 



EQU 


* 


XCH 


ZREG 


TC 


SETNCADR 


CAF 


LODNNLOC 


TC 


DXCHJVMP 



DS 
DS 



LODNNTAB 




ECADR into NOUNCADR, set EB , NOUNADD 



was DCA LODNNLOC, DXCH Z in Block II 
bank jump to noun table read rtne 



*** uses 2 words in Block II 



14126 6,0126 



77772 NEG5 



DS 



If external (keyboard input), noun address is in register A. 
If internal (S/W input), noun address is in MPAC+2 . 
Store the noun address into NOUNCADR and NOUNADD. If the verb 
is 05. go directly to the VERBFAN; for all other verbs, display 
; the noun address in R3 and then go to the VERBFAN. 



INTMCTBS EQU * 

; entry point for internal : 



14127 6, 
14130 6, 



0127 3 1,2050 
0130 6 0, 0132 1 



CAF 
AD 



ZERO 
MPAC+2 



; was CA MPAC+2 in Block II 

; internal mach CADR to be specified 



14131 6,0131 2,4616 1 



entry point for external (keyboard input) : 

TC SETNCADR ; store addr (A) into NOUNCADR and NOUNADD 



14132 6, 

14133 6, 



0132 4 1,2055 1 

0133 6 0, 0470 1 



CS 
AD 



FIVE 
VERBREG 



NVSUB call left CADR in MAPC+2 for mach 
CADR to be specified . 



14134 6,0134 1 0,0000 

14135 6,0135 6,6141 

14136 6,0136 6,6140 1 

14137 6,0131 6,6141 
14140 6,0140 6,6151 1 



14141 
14142 



6, 0141 3 2, 4637 1 
6, 0142 5 0, 0466 



14143 6,0143 3 1,2050 

14144 6,0144 6 0,0506 1 

14145 6,0145 6,7310 1 

14146 6,0146 6,6151 1 



CCS 


A ; 


TC 


* + 4 


TC 


*+2 ; 


TC 


*+2 


TC 


VERBFAN ; 


CAF 


R3D1 ; 


TS 


DSPCOUNT 


CAF 


ZERO ; 


AD 


NOUNCADR 


TC 


DSPOCTWD 


TC 


VERBFAN 



was BZF VERBFAN in Block 11 

>0 

+ 

<0 

-0, don't display CADR if verb = 05 

; verb not = 05, display CADR 



was CA NOUNCADR in Block 11 



NNADTEM was + (normal) , so just use the noun address straight from the 

noun table (currently in A) . The CCS instruction used to test the 

address also decremented it, so we add one to restore the correct address. 



14147 
14150 



. 0147 6 1, 2051 1 
. 0150 2, 4616 1 



AD 
TC 



ONE 
SETNCADR 



store addr (A) into NOUNCADR and NOUNADD 



noun address is currently in NOUNCADR and NOUNADD. 



4151 


6, 


0151 


4 


6 


6163 


1 


4152 


6, 


0152 


6 





0470 


1 


4153 


6, 


0153 


1 





0000 





4154 


6, 


0154 


6 


1 


2051 


1 


4155 


6, 


0155 





6 


6157 


1 


4156 


6, 


0156 





6 


6164 


1 


4151 


6, 


0157 


5 





0130 





4160 


6, 


0160 





2 


5003 


1 


4161 


6, 


0161 





1 


3653 


1 


4162 


6, 


0162 




20000 






EQU 


* 


cs 


LST2C0N 


AD 


VERBREG 


CCS 


A 


AD 


ONE 


TC 


* + 2 


TC 


VBFANDIR 


TS 


MPAC 


TC 


RELDSP 


TC 


POST JUMP 


DS 


GOEXTVB 



verb-LST2C0N 

ver G/ LST2C0N 

verb L/ LST2C0N 

release display syst 

go to GOEXTVB with VB-40 in MPAC 



14163 6,0163 



00050 1 LST2C0N 



first list2 verb (extended verb) 











VBFANDIR 


14164 


6, 


0164 2 


0, 0470 





14165 


6, 


0165 3 


6, 6167 


1 


14166 


6, 


0166 


1, 3712 




VERBTAB 


14167 


6, 


0167 


14341 


1 


14170 


6, 


0170 


14355 


1 


14171 


6, 


0171 


14363 


1 


14172 


6, 


0172 


14370 





14173 


6, 


0173 


14350 


1 


14174 


6, 


0174 


14343 





14175 


6, 


0175 


14510 





14176 


6, 


0176 


12704 


1 


14177 


6, 


0177 


14341 


1 


14200 


6, 


0200 


14341 


1 


14201 


6, 


0201 


14341 


1 


14202 


6, 


0202 


15146 





14203 


6, 


0203 


15146 





14204 


6, 


0204 


15146 





14205 


6, 


0205 


15146 





14206 


6, 


020 6 


15146 





14207 


6, 


0207 


15146 





14210 


6, 


0210 


15146 





14211 


6, 


0211 


14341 


1 


14212 


6, 


0212 


14341 


1 


14213 


6, 


0213 


14341 


1 


14214 


6, 


0214 


14663 


1 


14215 


6, 


0215 


14673 





14216 


6, 


0216 


14707 


1 


14217 


6, 


0217 


14635 


1 


14220 


6, 


0220 


14600 


1 


14221 


6, 


0221 


14341 


1 


14222 


6, 


0222 


15301 


1 


14223 


6, 


0223 


14341 


1 


14224 


6, 


0224 


14341 


1 


14225 


6, 


0225 


15420 





14226 


6, 


022 6 


15446 





14227 


6, 


0227 


13325 


1 


14230 


6, 


0230 


13315 


1 


14231 


6, 


0231 


13323 


1 


14232 


6, 


0232 


15572 





14233 


6, 


0233 


02126 





14234 


6, 


0234 


15356 





14235 


6, 


0235 


14341 


1 


14236 


6, 


0236 


14341 


1 



EQU 


* 


INDEX 


VERBREG 


CAF 


VERBTAB 


TC 


BANKJUMP 


EQU 


* 


CADR 


GODSPALM 


CADR 


DSP A 


CADR 


DSPB 


CADR 


DSPC 


CADR 


DSPAB 


CADR 


DSP ABC 


CADR 


DECDSP 


CADR 


DSPDPDEC 


CADR 


GODSPALM 


CADR 


GODSPALM 


CADR 


GODSPALM 


CADR 


MONITOR 


CADR 


MONITOR 


CADR 


MONITOR 


CADR 


MONITOR 


CADR 


MONITOR 


CADR 


MONITOR 


CADR 


MONITOR 


CADR 


GODSPALM 


CADR 


GODSPALM 


CADR 


GODSPALM 


CADR 


ALOAD 


CADR 


BLOAD 


CADR 


CLOAD 


CADR 


ABLOAD 


CADR 


AB CLOAD 


CADR 


GODSPALM 


CADR 


DSPFMEM 


CADR 


GODSPALM 


CADR 


GODSPALM 


CADR 


VBRQEXEC 


CADR 


VBRQWAIT 


CADR 


VBRESEQ 


CADR 


VBPROC 


CADR 


VBTERM 


CADR 


VBTSTLTS 


CADR 


SLAP1 


CADR 


MMCHANG 


CADR 


GODSPALM 


CADR 


GODSPALM 



VBOO 


Illegal 






VB01 


display 


oct comp 1 


(Rl) 


VB02 


display 


oct comp 2 


(Rl) 


VB03 


display 


oct comp 3 


(Rl) 


VB04 


display 


oct comp 1, 


2 (R1.R2) 


VB05 


display 


oct comp 1, 


2,3 (Rl, R2, R3) 


VB0 6 


decimal 


display 




VB07 


DP decimal display 


(R1,R2) 


VB0 8 


spare 






VB0 9 


spare 






VB10 


spare 






VB11 


monitor 


oct comp 1 


(Rl) 


VB12 


monitor 


oct comp 2 


(R2) 


VB13 


monitor 


oct comp 3 


(R3) 


VB14 


monitor 


oct comp 1, 


2 (R1,R2) 


VB15 


monitor 


oct comp 1, 


2,3 (Rl, R2, R3) 


VB16 


monitor 


decimal 




VB11 


monitor 


DP decimal 


(Rl, R2) 


VB18 


spare 






VB19 


spare 






VB2 


spare 






VB21 


load comp 1 (Rl ) 




VB22 


load comp 2 (R2) 




VB23 


load comp 3 (R3) 




VB2 4 


load comp 1,2 (Rl , R2) 


VB25 


load comp 1, 2, 3 (Rl 


,R2,R3) 


VB2 6 


spare 






VB27 


fixed memory display 


VB2 8 


spare 






VB2 9 


spare 






VB3 


request 


executive 




VB31 


request 


wai tlist 




VB32 


resequence 




VB33 


proceed 


(wi thout data) 


VB34 


t e rm inate 




VB35 


test lights 




VB3 6 


fresh start 




VB37 


change major mode 




VB3 8 


spare 






VB39 


spare 







MIXNOUN 

NNADTAB contains a relative address, IDADDREL(in low 10 bits), r&ferring 

to where 3 consecutive addresses are stored (in IDADDTAB) . 

MIXNOUN gets data and stores in MIXTEMP, +1, +2. It sets NOUNADD for 

MIXTEMP . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 322. 



14237 6, 0237 



TXNOUN EQU * 

TC GODSPALM ; not currently implemented 

************ BUNCH OF MISSING STUFF ************ 



DPTEST 

enter with SF routine code number (SF ROUT) in A. Returns to L+l if no DP. 

Returns to L + 2 if DP. 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 322. Also, see p. 263. 















DPTEST 


4240 


6 


0240 


5 





0552 





4241 


6 


0241 


3 





0001 





4242 


6, 


0242 


5 


0, 


0553 


1 


4243 


6 


0243 


2 





0552 


1 


4244 


6 


0244 





6 


6245 


1 


4245 


6 


0245 








0553 


1 


4246 


6 


0246 








0553 


1 


4241 


6 


0241 








0553 


1 


4250 


6 


0250 








0553 


1 


4251 


6 


0251 





6 


62 62 


1 


4252 


6 


0252 





6 


62 62 


1 


4253 


6 


0253 








0553 


1 


4254 


6 


0254 





6 


62 62 


1 


4255 


6 


0255 








0553 


1 


4256 


6 


0256 








0553 


1 


4251 


6 


0251 





6 


62 62 


1 


4260 


6 


0260 








0553 


1 


4261 


6, 


02 61 





0, 


0553 


1 

DPTEST1 


4262 


6 


02 62 


2 


0, 


0553 





4263 


6, 


02 63 





0, 


0001 






EQO 


* 


TS 


DPTEST A 


XCH 


Q 


TS 


DPTEST_Q 


INDEX 


DPTEST A 


TC 


* + l 


TC 


DPTEST_Q 


TC 


DPTEST_Q 


TC 


DPTEST_Q 


TC 


DPTEST_Q 


TC 


DPTEST1 


TC 


DPTEST1 


TC 


DPTEST_Q 


TC 


DPTEST1 


TC 


DPTEST_Q 


TC 


DPTEST_Q 


TC 


DPTEST1 


TC 


DPTEST_Q 


TC 


DPTEST_Q 


EQV 


* 


INDEX 


DPTEST_Q 


TC 


1 



octal only, no DP 

straight fractional , no DP 

CDD degrees (XXX. XX), no DP 

arithmetic SF, no DP 

DP10VT 

DP20VT 

Y OPTICS DEGREES, no DP 

DP30VT 

HMS, no DP 

MS, no DP 

DP40VT 

arithl, no DP 

2INT0UT, no DP to get hi part in MPAC 



return to L+2 



REQDATX, REQDATY, REQDATZ 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 323. 

















REQDATX 


EQO 


* 


4264 


6 


0264 


3 





0001 







XCH 


Q 


4265 


6, 


0265 


5 





0554 







TS 


REQ_Q 


4266 


6 


0266 


3 


2 


4635 







CAF 


R1D1 


4261 


6, 


02 61 





6 


6211 





REQDATY 


TC 
EQV 


REQCOM 

* 


4210 


6 


0210 


3 





0001 







XCH 


Q 


4211 


6, 


0211 


5 





0554 







TS 


REQ_Q 


4212 


6 


0212 


3 


2 


4 636 







CAF 


R2D1 


4213 


6, 


0213 





6 


6211 





REQDATZ 


TC 
EQV 


REQCOM 

* 


4214 


6 


0214 


3 





0001 







XCH 


Q 


4215 


6, 


0215 


5 





0554 







TS 


REQ_Q 


4216 


6, 


0216 


3 


2 


4 631 


1 




CAF 


R3D1 


4211 


6 


0211 


5 





0466 





REQCOM 


TS 


DSPCOVNT 


4300 


6 


0300 


4 





0554 


1 




CS 


REQ_Q 


4301 


6 


0301 


5 





0502 







TS 


REQRET 


4302 


6 


0302 





1 


3565 


1 




TC 


BANKCALL 


4303 


6 


0303 




12413 


1 




DS 


5BLANK 



. 0304 2, 4160 1 



14305 6,0305 0,0433 



EQU 

TC 



UPDATNN, UPDATVB 



Adapted from the AGC Block 11 COLOSSUS rev 24S 
Oct 28, 1968, p. 323. 



assembly listing , 



14306 6,0306 5 0,0471 



14307 
14310 



14321 
14322 

14323 
14324 
14325 



6, 0307 3 0, 0001 
6, 0310 5 0, 0414 



14311 6,0311 3 6,6124 

14312 6,0312 1,3526 

14313 6,0313 1 0,0443 

14314 6,0314 6 1,2051 1 

14315 6,0315 6,6320 

14316 6,0316 6,6321 1 

14317 6,0317 6,6321 1 



14320 6,0320 2,4616 1 



- 0321 3 
. 0322 5 



2, 4676 1 
0, 0466 



. 0323 3 1, 2050 
.0324 6 0,0471 
. 0325 6, 6335 1 



14326 6,0326 5 0,0470 1 



14327 6,0327 3 0,0001 
14330 6,0330 5 0,0414 



14331 6,0331 3 2,4675 1 

14332 6,0332 5 0,0466 



14333 6,0333 3 1,2050 

14334 6,0334 6 0,0470 1 



14335 6,0335 1,3653 1 

14336 6, 0336 13156 1 

14337 6,0337 0,0414 





TS 


NOUNREG 


UPDATNN 


EQU 


* 




XCH 


Q 




TS 


UPDATRET 




CAF 


LODNNLOC 




TC 


DXCHJUMP 




CCS 


NNAD TEM 




AD 


ONE 




TC 


PUT ADD 




TC 


PUTADD+1 




TC 


PUTADD+1 


PUT ADD 


EQU 


* 




TC 


SETNCADR 




CAF 


ND1 




TS 


DSPCOUNT 




CAF 


ZERO 




AD 


NOUNREG 




TC 


UPDAT1 




TS 


VERBREG 


UPDATVB 


EQU 


* 




XCH 


Q 




TS 


UPDATRET 




CAF 


VD1 




TS 


DSPCOUNT 




CAF 


ZERO 




AD 


VERBREG 


UPDAT1 


EQU 


* 




TC 


POST JUMP 




DS 


GOVNUPDT 




TC 


UPDATRET 



was DCA LODNNLOC, DXCH Z in Block II 
bank jump to noun table read rtne 



>0, normal 

+0 , normal 

<0, MCTBS don't change NOUNADD 

-0, MCTBI don't change NOUNADD 



ECADR into NOUNCADR, sets NOUNADD 



was CA NOUNREG in Block II 



was CA VERBREG in Block II 



can't use SWCALL to go to DSPDECVN, since 
UPDATVB can itself be called by SWCALL 



GOALMCYC, GODSPALM 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 324. 



14340 6,0340 2,4474 1 GOALMCYC 



14341 
14342 



6,0341 1,3653 1 GODSPALM 
6, 0342 13267 



TC 


ALMCYCLE 


TC 


POST JUMP 


DS 


DSPALARM 



needed because bank jump cant handle F/F 



DISPLAY VERBS 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 326. 

















DSP ABC 


14343 


6 


0343 


4 


1 


2052 







14344 


6 


0344 





6 


6414 







14345 


6 


0345 


2 





0442 


1 




14346 


6 


0346 


4 





0002 


1 




14347 


6, 


0347 


3 


0, 


0427 





DSPAB 



14350 6,0350 4 1,2051 

14351 6,0351 6,6414 

14352 6,0352 2 0,0442 1 

14353 6,0353 4 0,0001 1 



EQU 


* 


CS 


TWO 


TC 


COMPTEST 


INDEX 


NOUNADD 


CS 


2 


XCH 


BUF+2 


EQU 


* 


CS 


ONE 


TC 


COMPTEST 


INDEX 


NOUNADD 


CS 


1 



14354 


6, 


0354 


3 


0, 


0426 


1 


DSP A 


XCH 
EQV 


BVF + 1 

* 


14355 


6, 


0355 





6, 


6435 







TC 


DECTEST 


14356 


6, 


0356 





6, 


64 62 


1 




TC 


TSTFORDP 


14357 


6, 


0357 


2 


0, 


0442 


1 




INDEX 


NOUN ADD 


14360 


6, 


0360 


4 


0, 


0000 





DSPCOM1 


CS 
EQV 





14361 


6, 


0361 


3 


0, 


0425 


1 




XCH 


BVF 


14362 


6, 


03 62 





6, 


6375 





DSPB 


TC 
EQV 


DSPC0M2 

* 


14363 


6, 


0363 


4 


1, 


2051 







CS 


ONE 


14364 


6, 


0364 





6, 


6430 







TC 


DCOMPTST 


14365 


6, 


0365 


2 


0, 


0442 


1 




INDEX 


NOUN ADD 


14366 


6, 


0366 


4 


0, 


0001 


1 




CS 


1 


14367 


6, 


0367 





6, 


63 61 





DSPC 


TC 
EQV 


DSPCOM1 

* 


14370 


6, 


0370 


4 


1, 


2052 







CS 


TWO 


14371 


6, 


0371 





6, 


6430 







TC 


DCOMPTST 


14372 


6, 


0372 


2 


, 


0442 


1 




INDEX 


NOUN ADD 


14373 


6, 


0373 


4 


, 


0002 


1 




CS 


2 


14374 


6, 


0374 





6, 


63 61 





DSPC0M2 


TC 
EQV 


DSPCOM1 

* 


14375 


6, 


0375 


4 


1, 


2052 







CS 


TWO 


14376 


6, 


0376 


6 


, 


0470 


1 




AD 


VERBREG 


14377 


6, 


0377 


1 


, 


0000 







CCS 


A 


14400 


6, 


0400 





6, 


6403 







TC 


DSPCOM3 


14401 


6, 


0401 





, 


0433 







TC 


ENTEXIT 


14 402 


6, 


0402 





6, 


6403 





DSPCOM3 


TC 
EQV 


* + l 
* 


14403 


6, 


0403 


5 


, 


0417 







TS 


DISTEM 


14404 


6, 


0404 


2 


, 


0000 







INDEX 


A 


14405 


6, 


0405 


3 


2, 


4635 







CAF 


R1D1 


14406 


6, 


0406 


5 


, 


0466 







TS 


DSPCOVNT 


14407 


6, 


0407 


2 


, 


0417 


1 




INDEX 


DISTEM 


14410 


6, 


0410 


4 


, 


0425 







CS 


BVF 


14411 


6, 


0411 





6, 


7310 


1 




TC 


DSPOCTWD 


14412 


6, 


0412 


3 


, 


0417 







XCH 


DISTEM 


14413 


6, 


0413 





6, 


63 7 7 


1 




TC 


DSPC0M2+2 



A B C AB ABC 
-1 -0 +1 +2 +3 
+ +0 +0 +1 +2 



IN A 

IN A AFTER CCS 



+0, +1, +2 into DISTEM 



COMPTEST 

alarms if component number of verb (load or Oct display) is 

greater than the highest component number of noun. 

DCOMPTST 

alarms if decimal only bit (bit 4 of comp code number) = 1. 

If not, it performs regular COMPTEST . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 326. 

















COMPTEST 


EQV 


* 


14414 


6, 


0414 


5 


0, 


0420 


1 




TS 


SF TEMPI 


14415 


6, 


0415 


3 


0, 


0001 







XCH 


Q 


14416 


6, 


0416 


5 


0, 


0547 


1 


COMPTST1 


TS 
EQV 


LXCH_LPRET 


14417 


6, 


0417 





6, 


6501 







TC 


GETCOMP 


14420 


6, 


0420 





2, 


4647 







TC 


LEFT5 


14421 


6, 


0421 


7 


1, 


2053 


1 




MASK 


THREE 


14422 


6, 


0422 


6 


0, 


0420 


1 




AD 


SF TEMPI 


14423 


6, 


0423 


1 


0, 


0000 







CCS 


A 


14424 


6, 


0424 





0, 


0547 


1 




TC 


LXCH_LPRET 


14425 


6, 


0425 





5, 


6271 







TC 


CCSHOLE 


14426 


6, 


0426 





6, 


6341 


1 


NDOMPTST 


TC 
EQV 


GODSPALM 

* 


14427 


6, 


0427 





0, 


0547 


1 


DCOMPTST 


TC 
EQV 


LXCH_LPRET 

* 


14430 


6, 


0430 


5 


0, 


0420 


1 




TS 


SF TEMPI 


14431 


6, 


0431 


3 


0, 


0001 







XCH 


Q 


14 4 32 


6, 


0432 


5 


0, 


0547 


1 




TS 


LXCH_LPRET 


14433 


6, 


0433 





6, 


6435 







TC 


DECTEST 


14434 


6, 


0434 





6, 


6417 







TC 


COMPTST1 



— verb comp 

was LXCH Q in block II 

save ret urn address in faux LP 



noun comp 

noun comp — verb comp 

noun comp G/ verb comp ; return 

noun comp L / ve rb c omp 

noun comp = verb comp; ret urn 

— verb comp 

was LXCH Q in block II 

save ret urn address in faux LP 



DECTEST 

alarms if dec only bit = 1 (bit 4 of comp code number 1 ) . Returns if not. 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 327. 



14435 
14436 



6, 0435 3 0, 0001 
6, 0436 5 0, 0132 1 



14437 6,0437 6,6501 

14440 6,0440 7 1,2063 1 

14441 6,0441 1 0,0000 

14442 6,0442 6,6341 1 

14443 6,0443 0,0132 1 



DECTEST 


EQO 


* 




XCH 


Q 




TS 


MPAC+2 




TC 


GETCOMP 




MASK 


BIT14 




CCS 


A 




TC 


GODSPALM 




TC 


MPAC+2 



was QXCH MPAC+2 in block II 



DCTSTCYC 

alarms and recycles if dec only bit 

Ret urns if not . Used by load verbs . 



(bit 4 of comp code number) . 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 327. 















DCTSTCYC 


EQO 


* 


4444 


6 


0444 


3 





0001 





XCH 


Q 


4445 


6, 


0445 


5 





0547 


1 


TS 


LXCH_LPRET 


4446 


6 


0446 





6 


6501 





TC 


GETCOMP 


4447 


6, 


0447 


7 


1 


20 63 


1 


MASK 


BIT14 


4450 


6 


0450 


1 





0000 





CCS 


A 


4451 


6 


0451 





2 


4474 


1 


TC 


ALMCYCLE 


4 4 52 


6 


0452 








0547 


1 


TC 


LXCH LPRET 



; was LXCH Q in block II 

■ save ret urn address in faux LP 



NOUNTEST 

alarms if no-load bit (bit 5 of comp code number) = 1 

if not , it returns . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 327. 



14453 


6 


0453 


3 





0001 





14^54 


6, 


0454 


5 


0, 


0547 


1 


14455 


6, 


0455 





6, 


6501 





14456 


6 


0456 


1 





0000 





14457 


6 


0457 








0547 


1 


14460 


6 


0460 








0547 


1 


144 61 


6, 


0461 





6, 


6341 


1 



NOUNTEST 


EQO 


* 




XCH 


Q 




TS 


LXCH_LPRET 




TC 


GETCOMP 




CCS 


A 




TC 


LXCH LPRET 




TC 


LXCH LPRET 




TC 


GODSPALM 



; was LXCH Q in block II 

: save return address in faux LP 



TSTFORDP 

test for DP. If so, get minor part only. 

The Block II version had some code that checked for a -1 in NNADTEM 

which meant use an I/O channel instead of memory . This was removed 

for the Block I. 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 327. 



TSTFORDP 



14 4 62 
14 4 63 



6, 0462 3 0, 0001 
6, 0463 5 0, 0547 1 



4464 


6 


0464 


2 





0435 


1 


4 4 65 


6 


0465 





6 


64 65 





4466 


6 


0466 





6 


6470 


1 


4467 


6, 


0467 





0, 


0547 


1 


4470 


6 


0470 





6 


6762 


1 


4471 


6 


0471 





6 


6240 


1 


4 472 


6, 


0472 





0, 


0547 


1 


4473 


6 


0473 


3 





0442 





4474 


6 


0474 


6 


1, 


2051 


1 


4475 


6 


0475 


5 





0442 






EQU 


* 


XCH 


Q 


TS 


LXCH_LPRET 


INDEX 


MIXBR 


TC 


* 


TC 


* + 2 


TC 


LXCH_LPRET 


TC 


SFRVTNOR 


TC 


DPTEST 


TC 


LXCH_LPRET 


XCH 


NOUN ADD 


AD 


ONE 


TS 


NOUN ADD 



was LXCH Q in block II 

save ret urn address in faux LP 



normal 

mixed case already handled in MIXNOUN 



was INCR NOUNADD in Block II 

DP E+l into NOUNADD for minor part 



14476 6,0476 0,0547 1 



LXCH_LPRET 



noun address is in NNADTEM 
noun type is in NNTYPTEM 

MIXBR is an enumerated type : 

1 = normal nouns 

2 = mixed nouns 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 328. 



14477 


6 


0477 




00444 





COMPICK 


DS 


NNTYPTEM 


14500 


6, 


0500 




00443 


1 


GETCOMP 


DS 
EQV 


NNADTEM 

* 


14501 


6 


0501 


2 


0, 0435 


1 




INDEX 


MIXBR 


14502 


6, 


0502 


3 


6, 6476 


1 




CAF 


COMPICK- 


14503 


6 


0503 


2 


0, 0000 







INDEX 


A 


14504 


6 


0504 


4 


0, 0000 







CS 





14505 


6 


0505 


4 


0, 0000 







COM 




14506 


6, 


0506 


7 


2, 4666 


1 




MASK 


HIS 


14507 


6 


0507 





0, 0001 







TC 


Q 



normal 

ADRES NNTYPTEM 



mixed 

ADRES NNADTEM 



C (NNTYPTEM) 

was CA in Block II 



C (NNADTEM) 



DECIMAL DISPLAY 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 328. 



14510 6,0510 6,6501 

14511 6,0511 2,4647 

14512 6,0512 7 1,2053 1 

14513 6,0513 5 0,0414 















DSPDCGET 


4514 


6, 


0514 


5 


0, 


0417 





4515 


6, 


0515 


6 


0, 


0442 





4516 


6, 


0516 


2 


0, 


0000 





4517 


6, 


0517 


4 


0, 


0000 





4520 


6, 


0520 


2 


0, 


0417 


1 


4521 


6, 


0521 


3 


0, 


0472 





4522 


6, 


0522 


1 


0, 


0417 


1 


4523 


6, 


0523 





6, 


6514 


1 

DSPDCPUT 


4524 


6, 


0524 


3 


1, 


2050 





4525 


6, 


0525 


5 


0, 


0131 


1 


4526 


6, 


0526 


5 


0, 


0132 


1 


4527 


6, 


0527 


2 


0, 


0414 


1 


4530 


6, 


0530 


3 


2, 


4635 





4531 


6, 


0531 


5 


0, 


0466 





4532 


6, 


0532 


2 


0, 


0414 


1 


4533 


6, 


0533 


4 


0, 


0472 


1 


4534 


6, 


0534 


5 


0, 


0130 





4535 


6, 


0535 





6, 


7003 





4536 


6, 


0536 


5 


0, 


0420 


1 


4537 


6, 


0537 


3 


6, 


6550 


1 


4540 


6, 


0540 





1, 


3526 





4541 


6, 


0541 


2 


0, 


0435 


1 


4542 


6, 


0542 





6, 


6542 


1 


4543 


6, 


0543 





6, 


6546 





4544 


6, 


0544 





6, 


6770 


1 


4545 


6, 


0545 





6, 


6560 


1 

DSP SEN OR 


4546 


6, 


0546 





6, 


6762 


1 


4547 


6, 


0547 





6, 


6560 


1 


4550 


6, 


0550 




16162 


GTSFOVTL 














DSPDCEND 


4551 


6, 


0551 





1, 


3565 


1 


4552 


6, 


0552 




13064 


1 


4553 


6, 


0553 


1 


0, 


0414 


1 


4554 


6, 


0554 





6, 


655 6 


1 


4555 


6, 


0555 





0, 


0433 





4556 


6, 


0556 


5 


0, 


0414 






EQV 


* 


TC 


GETCOMP 


TC 


LEET5 


MASK 


THREE 


TS 


DECOVNT 


EQV 


# 


TS 


DECTEM 


AD 


NOUN ADD 


INDEX 


A 


CS 





INDEX 


DECTEM 


XCH 


XREG 


CCS 


DECTEM 


TC 


DSPDCGET 


EQV 


* 


CAF 


ZERO 


TS 


MPAC+1 


TS 


MPAC+2 


INDEX 


DECOVNT 


CAF 


R1D1 


TS 


DSPCOVNT 


INDEX 


DECOVNT 


CS 


XREG 


TS 


MPAC 


TC 


SFCONVM 


TS 


SF TEMPI 


CAF 


GTSFOVTL 


TC 


DXCHJVMP 


INDEX 


MIXBR 


TC 


* + 


TC 


DSPSENOR 


TC 


SFRVTMIX 


TC 


DECDSP3 


EQV 


* 


TC 


SFRVTNOR 


TC 


DECDSP3 


DS 


GTSFOVT 


EQV 


* 


TC 


BANKCALL 


DS 


DSPDECWD 


CCS 


DECOVNT 


TC 


*+2 


TC 


ENTEXIT 


TS 


DECOVNT 



comp number into DECOUNT 



pi cks up data 

DECTEM 1C0MP +0, 2C0MP -hi, 3C0MP +2 



cant use B OF since DMP uses it 
more to get 



displays data 

DECOUNT 1C0MP +0, 2C0MP +1 , 3C0MP +2 



2X (SF CON NUMB) in A 



was DCA GTSFOUTL, DXCH Z in Block II 
bank jump to SF constant table read rtne 



all SFOUT routines end here 



14557 6,0557 6,6524 1 













DECDSP3 


4560 


6 


0560 


2 


0, 0000 





4561 


6 


0561 


3 


6, 6563 


1 


4562 


6, 


05 62 





1, 3712 




SFOUTABR 


4563 


6 


0563 




13265 


1 


4564 


6 


0564 




14551 





4565 


6 


0565 




12564 





4566 


6 


0566 




12644 


1 


4567 


6 


0567 




00000 


1 


4570 


6 


0570 




00000 


1 


4571 


6 


0571 




00000 


1 


4572 


6 


0572 




00000 


1 


4573 


6 


0573 




16000 





4574 


6 


0574 




00000 


1 


4575 


6 


0575 




00000 


1 


4576 


6 


0576 




00000 


1 


4577 


6, 


0577 




00000 


1 



TC 


DSPDCPVT 


EQV 


* 


INDEX 


A 


CAF 


SFOVTABR 


TC 


BANKJVMP 


EQV 


* 


CADR 


PREDSPAL 


CADR 


DSPDCEND 


CADR 


DEGOUTSF 


CADR 


ARTOUTSF 


CADR 





CADR 





CADR 





CADR 





CADR 


HMSOUT 


CADR 





CADR 





CADR 





CADR 






more to display 



, alarm if dec display wi th octal only noun 

1 
2 

3 

4 ********** 

5 ********** 
g ********** 
7 ********** 

8 

9 ********** 

1 ********* 

21 ********* 

22 ********* 



BANK 4 1 2 



ORG 
INCL 



BANK 4 0_ 2 
bank 4 0_2 . asm 



COLOSSUS pp. 330-332 



SCALE FACTOR ROUTINES ( file : bank4 0_2 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 330-332. 

















DEGOUTSF 


2564 


5 


0564 


3 


1 


2050 







2565 


5 


0565 


5 





0132 


1 




2566 


5 


0566 





5 


6603 


1 




2567 


5 


0567 





5 


6571 


1 




2570 


5 


0570 





5 


6572 


1 




2571 


5, 


0571 





5 


6616 





SETAUG 



12572 5,0572 3 1,2050 

12573 5,0573 2 0,0132 

12574 5,0574 6 5,6640 

12575 5,0575 3 0,0420 1 

12576 5,0576 3 1,2050 

12577 5,0577 2 0,0132 

12600 5,0600 6 5,6641 1 

12601 5,0601 3 0,0421 



EQV 


* 


CAF 


ZERO 


TS 


MPAC+2 


TC 


FIXRANGE 


TC 


*+2 


TC 


SET AUG 


TC 


DEGCOM 


EQV 


* 


CAF 


ZERO 


INDEX 


MPAC+2 


AD 


DEGTAB 


XCH 


SF TEMPI 


CAF 


ZERO 


INDEX 


MPAC+2 


AD 


DEGTAB+1 


XCH 


SFTEMP1+1 



set index for full scale 



no augment needed (SFTEMP1 and 2 are 0) 
set augmenter according to C (MPAC+2) 



loads SFTEMP1 and SFTEMP2 with the 

DP augmenter constant 

was DCA DEGTAB, DXCH SFTEMP1 in Block II 



12602 


5, 


0602 








0001 




FIXRAN 


12603 


5 


0603 


3 





0001 





12604 


5, 


0604 


5 





0563 


1 


12605 


5 


0605 


1 





0130 


1 


12606 


5 


0606 








0563 


1 


12607 


5 


0607 








0563 


1 


12 610 


5 


0610 





5 


6611 


1 


12 611 


5 


0611 


4 


1 


2062 





12612 


5 


0612 


7 





0130 


1 


12 613 


5 


613 


5 





0130 





12 614 


5 


0614 


2 





0563 





12 615 


5, 


615 








0001 




DEGCOM 


12 616 


5 


0616 


3 


1 


2050 





Block 


II 












12 617 


5 


617 


2 





0132 





12 620 


5 


620 


6 


5 


6641 


1 


12621 


5, 


0621 


3 





0131 


1 



12622 5,0622 3 1,2050 

12623 5, 0623 2 0, 0132 

12624 5,0624 6 5,6640 

12625 5, 0625 3 0, 0130 

12626 5,0626 2,4353 



12 627 
12630 



5, 0627 3 
5, 0630 6 



0, 0421 
0, 0131 1 



EQV 


* 


XCH 


Q 


TS 


FR_RETQ 


CCS 


MPAC 


TC 


FR_RETQ 


TC 


FR_RETQ 


TC 


* + l 


CS 


BIT15 


MASK 


MPAC 


TS 


MPAC 


INDEX 


FR_RETQ 


TC 


1 


EQV 


* 


CAF 


ZERO 


INDEX 


MPAC+2 


AD 


DEGTAB+1 


XCH 


MPAC+1 


CAF 


ZERO 


INDEX 


MPAC+2 


AD 


DEGTAB 


XCH 


MPAC 


TC 


SHORTMP 


XCH 


SFTEMP1+1 


AD 


MPAC+1 



if MPAC is +, return to L+l 

if MPAC is -, return to L+2 after 

masking out the sign bit 

was TCF *+l in Block II 



was INDEX MPAC+2, DCA DEGTAB, DXCH MPAC in 

loads multiplier, does SHORTMP, and 
adds augmenter 
adjusted angle in A 



was DXCH SFTEMP1, DAS MPAC in Block II 



12631 
12 632 



5, 0631 5 
5, 0632 3 



0, 0131 1 
1,2050 



12633 5,0633 6 0,0420 1 

12634 5,0634 6 0,0130 

12635 5, 0635 5 0, 0130 

12636 5,0636 3 1,2050 



TS 
CAF 

AD 
AD 
TS 
CAF 



MPAC+1 
ZERO 

SF TEMPI 
MPAC 
MPAC 
ZERO 



skip on overflow 

otherwise , make interword carry=0 



skip on overflow 

otherwise , make interword carry=0 



12631 5,0631 5,6651 



SCOVTEND 



12 64 
12641 
12642 
12643 



5, 0640 
5, 0641 
5, 0642 
5, 0643 



05605 
03656 
16314 
31463 



EQV 

DS 
DS 
DS 
DS 



%05605 
i03656 
H6314 
1,31463 



Hi part of . 1 8 

Lo part of .18 

Hi part of . 45 

Lo part of .45 



ARTOUTSF 



12644 5, 0644 3 0, 0421 

12645 5,0645 3 0,0131 1 

12646 5,0646 3 0,0420 1 
12641 5,0641 3 0,0130 



EQV 
XCH 
XCH 
XCH 
XCH 



SFTEMP1+1 
MPAC+1 
SF TEMPI 
MPAC 



was DXCH SFTEMP1, DXCH MPAC in Block II 
assumes point at left of DP SFCON 



12650 5,0650 2,4140 

12651 5,0651 1,3653 1 SCOVTEND 

12652 5,0652 14551 



TC 
TC 
CADR 



PRSHRTMP 
POSTJVMP 
DSPDCEND 



-0, SHORTMP fails to give 



READLO 

Picks up fresh data for both HI and LO and leaves it in MPAC, MPAC+1. 
This is needed for time display . It zeroes MPAC+2 , but does not force 
TP AGREE . 



Adapted from the AGC Block II COLOSSUS rev 24S 
Oct 28, 1968, p. 332. 



assembly listing , 



12653 
12654 



5, 0653 3 
5, 0654 5 



0, 0001 
0, 0441 



12655 5,0655 2 0,0435 1 

12656 5,0656 5,6656 1 



12651 


5, 


651 





5 


6101 


1 


12660 


5 


0660 


3 


1 


2050 





12661 


5 


0661 


2 





0414 


1 


12 662 


5 


662 


6 





0445 


1 


12663 


5 


0663 


7 


2 


4 612 


1 


12664 


5 


0664 





2 


4633 






EQV 


* 


XCH 


Q 


TS 


TEM4 


INDEX 


MIXBR 


TC 


* 


TC 


RDLONOR 


CAF 


ZERO 


INDEX 


DECOVNT 


AD 


IDAD1TEM 


MASK 


L0W11 


TC 


SETEBANK 



save return address 



MIXBR=1, so normal noun 



MIXBR=2 , so mixed noun 

was INDEX DECOVNT, CA IDAD1TEM in Block II 

get IDADDTAB entry for comp K of noun 

E bank 

set EB , leave E address in A 



12665 5,0665 5 0,0516 

12666 5,0666 3 1,2050 
12661 5,0661 2 0,0516 1 

12610 5, 0610 6 0, 0000 1 

12611 5, 0611 5 0, 0130 

12612 5,0612 3 1,2050 

12613 5,0613 2 0,0516 1 

12614 5, 0614 6 0, 0001 

12615 5, 0615 5 0, 0131 1 

12616 5,0616 3 1,2050 
12611 5,0611 5 0,0132 1 



Dereference noun address to move components of noun into MPAC, MPAC+1 
mixed normal 



; temp store addr for immediate use below 
; was INDEX A, DCA Q, DXCH MPAC in Block II 



; C (E SVBK) 
; C((E SVBK) 


C 
+ 1) C 


<E) 
(E + 


1 




READL01 


EQV 

TS 






* 
ADDRWDl 




CAF 

INDEX 

AD 

TS 




ZERO 
ADDRWDl 

MPAC 




CAF 
INDEX 

AD 
TS 




ZERO 
ADDRWDl 
1 
MPAC+1 




CAF 
TS 






ZERO 
MPAC+2 



2100 


5, 


0100 








0441 







TC 


TEM4 


2101 


5 


0101 


3 


1 


2050 





RDLONOR 


CAF 


ZERO 


2102 


5 


0102 


6 





0442 







AD 


NOUN ADD 


2103 


5, 


0103 





5 


6665 


1 


ENDRDLO 
BANK 4 3 


TC 
EQV 


READL01 



return 

was CA NOUNADD in Block II 



ORG 
INCL 



BANK42_1 
bank42_l . asm 



COLOSSUS pp. 333-336 



DISPLAY ROUTINES ( file : bank42_l . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 333-336. 



OUTPUT SCALE FACTOR ROUTINE 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 333. 















HMSOUT 


EQU 


* 


16000 


1, 


0000 





1, 3565 


1 




TC 


BANKCALL 


16001 


1, 


0001 




12653 


1 




DS 


READLO 


16002 


1, 


02 





2, 4150 


1 




TC 


TPAGREE 


16003 


7 , 


0003 





7 , 6053 


1 


; whole mir 


TC 
in bitl3 


SEPSECNR 
of LOWTEMOUT 


16004 


7 , 


0004 





2, 4314 







TC 


DMP 


16005 


7 , 


0005 




06043 







ADRES 


SEC0N2 


16006 


1, 


0006 


3 


2, 4 631 


1 




CAF 


R3D1 


16001 


1, 


0001 


5 


0, 0466 







TS 


DSPCOUNT 


16010 


1 , 


0010 





1, 3565 


1 




TC 


BANKCALL 


16011 


7 , 


0011 




13064 


1 




DS 


DSPDECHD 


16012 


7, 


0012 





1, 6014 


1 




TC 


SEPMIN 


16013 


7 , 


0013 


3 


7 , 6045 







CAF 


MINC0N2 


16014 


7, 


0014 


3 


0, 0130 







XCH 


MPAC 


16015 


7, 


0015 


5 


0, 0416 


1 




TS 


HITEMOUT 


16016 


7, 


0016 


3 


1, 6046 







CAF 


MINC0N2+1 


16011 


7 , 


0011 


3 


0, 0131 


1 




XCH 


MPAC+1 


16020 


7, 


0020 





2, 4140 





; mult by . 


TC 
0006 


PRSHRTMP 


16021 


7, 


0021 


3 


2,4 636 







CAF 


R2D1 


16022 


7 , 


0022 


5 


0, 0466 







TS 


DSPCOUNT 


16023 


7, 


0023 





1, 3565 


1 




TC 


BANKCALL 


16024 


7, 


0024 




13064 


1 




DS 


DSPDECHD 


16025 


7 , 


0025 


3 


1 , 6051 







CAF 


HRC0N1 


16026 


7, 


0026 


5 


, 0130 







TS 


MPAC 


16021 


7 , 


0021 


3 


1 , 6052 







CAF 


HRC0N1+1 


16030 


7, 


0030 


5 


, 0131 


1 




TS 


MPAC+1 


16031 


7, 


0031 


3 


1, 2050 







CAF 


ZERO 


16032 


7, 


0032 


6 


0, 0416 


1 




AD 


HITEMOUT 


16033 


7, 


0033 





2, 4140 





; mult by . 


TC 
16384 


PRSHRTMP 


16034 


7, 


0034 


3 


2, 4635 







CAF 


R1D1 


16035 


7, 


0035 


5 


0, 0466 







TS 


DSPCOUNT 


16036 


7, 


0036 





1, 3565 


1 




TC 


BANKCALL 


16031 


7, 


0031 




13064 


1 




DS 


DSPDECWD 


16040 


7, 


0040 





0, 0433 







TC 


ENTEXIT 


16041 


7, 


0041 




25660 





SECON1 


DS 


%25660 


16042 


7, 


0042 




31142 


1 




DS 


%31142 


16043 


7, 


0043 




01121 


1 


SECON2 


DS 


%01121 


16044 


7, 


0044 




01211 


1 




DS 


%01211 


16045 


7, 


0045 




00011 


1 


MINC0N2 


DS 


%00011 


16046 


7, 


0046 




32445 







DS 


%32445 


16041 


7, 


0041 




02104 





MINCON1 


DS 


%02104 


16050 


7 , 


0050 




10422 


1 




DS 


%10422 


16051 


7, 


0051 




05114 





HRCON1 


DS 


%05114 


16052 


7, 


0052 




13261 







DS 


%13261 



; read fresh data for HI and LO into MPAC, 

; MPAC+1 . 

; make DP data agree 

; leave frac sec/60 in MPAC, MPAC+1, leave 
above 

; use only fract sec/ 60 mod 60 

; mult by . 6 

; gives CENT1-SEC/10EXP5 mod 60 

; display sec mod 60 

; remove rest of seconds 

; leave fract min/60 in MPAC+1 , leave 

; whole hours in MPAC 

; save whole hours 

; use only fract min/60 mod 60 

; if C(A) = -0, SHORTMP fails to give -0 . 

; gives min/1 0EXP5 mod 60 

; display min mod 60 

; was DCA HRC0N1, DXCH MPAC in Block II 

; minutes , seconds have been removed 

; was CA HITEMOUT in Block II 

; use whole hours 

; if C(A) = -0, SHORTMP fails to give -0 . 

; gives hours/1 0EXP5 

; use regular DSPDECWD, with round off 

; 2EXP12/6000 



. 06 for seconds display 



. 0006 for minutes display 



.066.. 66 upped by 2EXP-28 



. 1 6384 decimal 



********* 






SEPSECNR 



16053 7,0053 3 0,0001 

16054 1,0054 5 0,0441 



16055 1,0055 2,4314 

16056 1 , 0056 06041 1 



EQU 


* 


XCH 


Q 


TS 


SEPSCRET 


TC 


DMP 


ADRES 


SEC0N1 



; this entry avoid rounding by . 5 sees 



; mult by 2EXP12/6000 

; gives fract sec/60 in bitl2 of MPAC+1 



6057 


7 


0057 


3 


1 


2050 





6060 


7 


0060 


6 





0130 





6061 


7, 


0061 


3 





0476 


1 


60 62 


7 


0062 


3 


1 


2050 





6063 


7 


0063 


6 





0131 


1 


6064 


7, 


0064 


3 





0477 





6065 


7 


0065 





2 


4721 


1 


6066 


7 , 


0066 





2 


4721 


1 


6061 


7 


0067 


3 


1 


2050 





6070 


7 


0070 


3 





0132 


1 


6071 


7 


0071 


3 





0131 


1 


6072 


7 , 


0072 


3 





0130 





6073 


7 


0073 








0441 






16074 
16075 

16076 
16077 

16100 
16101 
16102 
16103 

16104 
16105 



16106 
16107 
16110 

16111 
16112 
16113 



7, 0074 3 
7 , 0075 5 



0, 0001 
0, 0441 



7 , 0076 3 1, 2050 

7, 0077 6 0, 0477 

7 , 0100 2 0, 0000 1 

7 , 0101 4 1, 2076 

7 , 0102 2 0, 0000 1 

7 , 0103 4 1, 2064 

7 , 0104 3 0, 0003 1 

7 , 0105 5 0, 0131 1 



7 , 0106 3 1, 2050 

7, 0107 6 0, 0476 1 

7 , 0110 5 0, 0130 

7,0111 2,4374 

7, 0112 06047 1 

7 , 0113 0, 0441 





CAF 


ZERO 




AD 


MPAC 




XCH 


HITEMOUT 




CAF 


ZERO 




AD 


MPAC+1 




XCH 


HITEMOUT+1 




TC 


TPSL1 




TC 


TPSL1 




CAF 


ZERO 




XCH 


MPAC+2 




XCH 


MPAC+1 




XCH 


MPAC 




TC 


SEPSCRET 


MIN 


EQU 


* 




XCH 


Q 




TS 


SEPMNRET 




CAF 


ZERO 




AD 


LOTEMOUT 




EXTEND 






MP 


BIT3 




EXTEND 






MP 


BIT13 




XCH 


LP 




TS 


MPAC+1 


orces bits 


12-1 to 


1 ±f -. 




CAF 


ZERO 




AD 


HITEMOUT 




TS 


MPAC 




TC 


DMP 




ADRES 


MINCON1 


SPMIN 


TC 


SEPMNRET 



was DCA MPAC, DXCH HITEMOUT in Block II 
save minutes and hours 



gives tract sec/60 in MPAC+1, MPAC+2 



leave fract sec/60 in MPAC, MPAC+1 



finds whole minutes in bitl3 
of LOWTEMOVT and above. 



removes rest of seconds 

leaves fract min/60 in MPAC+1 

leaves whole hours in MPAC 

SR 12, throw away LP 

SR 27, take from LP. = SL 12 

was LXCH MPAC+1 in Block II 
this forces bits 12-1 to if +, 



mult by 1/15 

gives fract min/60 in MPAC+1 

gives whole hours in MPAC 



BANK42_2 



ORG 
INCL 



BANK4 0_3 
bank 4 03 .asm 



COLOSSUS pp. 336 



WORD DISPLAY ROUTINES ( file : bank4 0_3 . asm) 



AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 336. 



DSPDPDEC 

This is a special purpose verb for displaying a double precision AGC 

word as 10 decimal digits on the AGC display panel. It can be used with 

any noun, except mixed nouns. It displays the contents of the register 

NOUNADD is pointing to. If used with nouns which are inherently not DP 

such as the CDU counters , the display will be garbage. 

Display is in Rl and R2 only with the sign in Rl . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 353. 



DSPDPDEC 



12704 
12705 
12706 
12707 



12 72 
12721 



5, 0704 2 
5, 0705 
5, 0706 
5, 0707 



0, 0435 1 
5, 6705 
5, 6710 1 
5, 7267 



12710 5,0710 3 1,2050 

12711 5,0711 2 0,0442 1 

12712 5,0712 6 0,0000 1 

12713 5,0713 5 0,0130 

12714 5,0714 3 1,2050 

12715 5,0715 2 0,0442 1 

12716 5,0716 6 0,0001 

12717 5,0717 5 0,0131 1 



5, 0720 3 
5,0721 5 



2,4635 
0, 0466 



EQU 


* 


INDEX 


MIXBR 


TC 


* + 


TC 


* + 2 


TC 


DSPALARM 


CAF 


ZERO 


INDEX 


NOUNADD 


AD 





TS 


MPAC 


CAF 


ZERO 


INDEX 


NOUNADD 


AD 


1 


TS 


MPAC+1 


CAF 


R1D1 


TS 


DSPCOUNT 



normal noun 



was DCA 0, DXCH MPAC in Block II 



was DCA 0, DXCH MPAC in Block II 



12122 
12723 



5, 0722 3 
5, 0723 5 



1,2050 
0, 0132 1 



12724 5,0724 2,4150 1 

12725 5,0725 5,7131 

12726 5,0726 0,0433 ENDDPDEC 



CAF 


ZERO 


TS 


MPAC+2 


TC 


TPAGREE 


TC 


DSP2DEC 


TC 


ENTEXIT 



BANK 4 0_ 4 



ORG 
INCL 



BANK 4 1_ 2 
ha.nk.41_2 . asm 



COLOSSUS pp. 337-342 



DISPLAY ROUTINES ( file : bank41_2 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 337-342. 



PINBALL GAME LOAD VERBS ( file : bank4 1_2 . asm) 

If alarm condition is detected during execute , check fail light is 
t urned on and ENDOFJOB . If alarm condition is detected during enter 
of data , check fail is turned on and it recycles to execute of 
original load verb . Recycle caused by 1 ) decimal machine CADR, 
2 ) mixt ure of octal /decimal data, 3) octal data into decimal only 
noun, 4 ) decimal data into octal only noun, 5) data too large for 
scale , 6) fewer than two data words loaded for HRS , MIN, SEC noun . 
For §2—6, alarm and recycle occur at final enter of set ; for §1 , 
alarm and recycle occur at enter of CADR . 

AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 337-343. 















ABCLOAD 


EQO 


* 


4600 


6 


0600 


4 


1 


2052 





cs 


TWO 


4601 


6 


0601 





6, 


6414 





TC 


COMPTEST 


4 602 


6, 


602 





6, 


6453 





TC 


NOUNTEST 


4603 


6 


0603 


3 


6 


6733 





CAF 


VBSP1LD 


4604 


6 


0604 





6 


632 6 





TC 


UPDATVB- 


4605 


6, 


0605 





6, 


62 64 


1 


TC 


REQDATX 


4606 


6 


0606 


3 


6 


6734 


1 


CAF 


VBSP2LD 


4607 


6 


0607 





6 


632 6 





TC 


UPDATVB- 


4 610 


6, 


0610 





6, 


6270 


1 


TC 


REQDATY 


4 611 


6 


0611 


3 


6 


6735 





CAF 


VBSP3LD 


4612 


6 


0612 





6 


632 6 





TC 


UPDATVB- 


4 613 


6, 


613 





6, 


6274 




PVTXYZ 


TC 
EQV 


REQDATZ 

* 


4 614 


6 


0614 


4 


1 


2056 


1 


CS 


SIX 


4 615 


6, 


615 





6, 


6736 





TC 


ALLDC_OC 


4 616 


6 


0616 


3 


6 


612 4 





CAF 


LODNNLOC 


4 617 


6, 


617 





1, 


3526 





TC 


DXCHJVMP 


4 620 


6 


62 


3 


1 


2050 





CAF 


ZERO 


4621 


6 


0621 





6 


7031 


1 


TC 


PVTCOM 


4 622 


6 


622 


2 


0, 


0442 


1 


INDEX 


NOUN ADD 


4 623 


6, 


0623 


5 


0, 


0000 


1 


TS 





4 62 4 


6 


62 4 


3 


1 


2051 


1 


CAF 


ONE 


4 625 


6 


0625 





6, 


7031 


1 


TC 


PVTCOM 


4 62 6 


6 


62 6 


2 





0442 


1 


INDEX 


NOUN ADD 


4 627 


6, 


62 7 


5 


0, 


0001 





TS 


1 


4630 


6 


0630 


3 


1 


2052 


1 


CAF 


TWO 


4631 


6 


0631 





6 


7031 


1 


TC 


PVTCOM 


4 632 


6 


632 


2 


0, 


0442 


1 


INDEX 


NOUN ADD 


4 633 


6, 


0633 


5 


0, 


0002 





TS 


2 



test if noun can be loaded 



test that the 3 data words loaded are 
all dec or all oct 



was DCA LODNNLOC, DXCH Z in Block II 
bank jump to noun table read rtne 



X comp 



Y comp 



Z comp 



*************** missing stuff ***************** 

Omi tted a bunch of code from here that does special stuff if the noun=7 . 
(a noun that operates on I/O channels and flagbits) 



. 0634 6, 6723 1 



EQU 



14 635 


6, 


0635 


4 


1, 


2051 





cs 


ONE 


14 636 


6, 


63 6 





6, 


6414 





TC 


COMPTEST 


14 637 


6, 


631 





6, 


6453 





TC 


NOUNTEST 


14 64 


6, 


64 


3 


6, 


6133 





CAF 


VBSP1LD 


14641 


6, 


0641 





6, 


632 6 





TC 


VPDATVB-. 


14 642 


6, 


0642 





6, 


62 64 


1 


TC 


REQDATX 


14643 


6, 


0643 


3 


6, 


6134 


1 


CAF 


VBSP2LD 


14 644 


6, 


64 4 





6, 


632 6 





TC 


VPDATVB-. 


14645 


6, 


0645 





6, 


6210 


1 

PVTXY 


TC 
EQV 


REQDATY 

* 


14 646 


6, 


64 6 


4 


1, 


2055 


1 


CS 


FIVE 


14641 


6, 


641 





6, 


6136 





TC 


ALLDC_OC 


14650 


6, 


0650 


3 


6, 


6124 





CAF 


LODNNLOC 


14 651 


6, 


0651 





1, 


3526 





TC 


DXCHJVMP 


14 652 


6, 


652 


3 


1, 


2050 





CAF 


ZERO 


14 653 


6, 


0653 





6, 


1031 


1 


TC 


PVTCOM 


14654 


6, 


0654 


2 


0, 


0442 


1 


INDEX 


NOUN ADD 


14655 


6, 


0655 


5 


0, 


0000 


1 


TS 





1465 6 


6, 


65 6 


3 


1, 


2051 


1 


CAF 


ONE 


14 651 


6, 


651 





6, 


1031 


1 


TC 


PVTCOM 


14660 


6, 


0660 


2 


0, 


0442 


1 


INDEX 


NOUN ADD 


14 661 


6, 


0661 


5 


, 


0001 





TS 


1 


14 662 


6, 


662 





6, 


6123 


1 

ALOAD 


TC 
EQV 


LOADLV 

* 


14 663 


6, 


0663 





6, 


62 64 


1 


TC 


REQDATX 


14664 


6, 


0664 


3 


6, 


612 4 





CAF 


LODNNLOC 


14 665 


6, 


0665 





1, 


3526 





TC 


DXCHJVMP 


14666 


6, 


0666 


3 


1, 


2050 





CAF 


ZERO 


14661 


6, 


0661 





6, 


1031 


1 


TC 


PVTCOM 


14610 


6, 


0610 


2 


, 


0442 


1 


INDEX 


NOUN ADD 


14611 


6, 


0611 


5 


0, 


0000 


1 


TS 





14612 


6, 


0612 





6, 


6123 


1 

BLOAD 


TC 
EQV 


LOADLV 

* 


14613 


6, 


0613 


4 


1, 


2051 





CS 


ONE 


14614 


6, 


0614 





6, 


6414 





TC 


COMPTEST 


14615 


6, 


0615 


3 


1, 


20 62 


1 


CAF 


BIT15 


14616 


6, 


0616 


5 


0, 


0504 





TS 


CLPASS 


14611 


6, 


0611 





6, 


6210 


1 


TC 


REQDATY 


14100 


6, 


0100 


3 


6, 


612 4 





CAF 


LODNNLOC 


14101 


6, 


0101 





1, 


3526 





TC 


DXCHJVMP 


14102 


6, 


0102 


3 


1, 


2051 


1 


CAF 


ONE 


14103 


6, 


0103 





6, 


1031 


1 


TC 


PVTCOM 


14104 


6, 


0104 


2 


0, 


0442 


1 


INDEX 


NOUN ADD 


14105 


6, 


0105 


5 


0, 


0001 





TS 


1 


14106 


6, 


0106 





6, 


6123 


1 

CLOAD 


TC 
EQV 


LOADLV 

* 


14101 


6, 


0101 


4 


1, 


2052 





CS 


TWO 


14110 


6, 


0110 





6, 


6414 





TC 


COMPTEST 


14111 


6, 


0111 


3 


1, 


2 62 


1 


CAF 


BIT15 


14112 


6, 


0112 


5 


0, 


0504 





TS 


CLPASS 


14113 


6, 


0113 





6, 


6214 





TC 


REQDATZ 


14114 


6, 


0114 


3 


6, 


612 4 





CAF 


LODNNLOC 


14115 


6, 


0115 





1, 


3526 





TC 


DXCHJVMP 


14116 


6, 


0116 


3 


1, 


2052 


1 


CAF 


TWO 


14111 


6, 


0111 





6, 


1031 


1 


TC 


PVTCOM 


1412 


6, 


0120 


2 


0, 


0442 


1 


INDEX 


NOUN ADD 


14121 


6, 


0121 


5 


0, 


0002 





TS 


2 


14122 


6, 


0122 





6, 


6123 


1 

LOADLV 


TC 
EQV 


LOADLV 

* 


14123 


6, 


0123 


3 


1, 


2050 





CAF 


ZERO 


1412 4 


6, 


012 4 


5 


0, 


0461 


1 


TS 


DECBRNCH 


14125 


6, 


0125 


4 


1, 


2050 


1 


CS 


ZERO 


1412 6 


6, 


012 6 


5 


0, 


0503 


1 


TS 


LOADSTAT 


14121 


6, 


0121 


4 


2, 


4615 





CS 


VD1 


14130 


6, 


0130 


5 


0, 


0466 





TS 


DSPCOVNT 


14131 


6, 


0131 





1, 


3653 


1 


TC 


POSTJVMP 


14132 


6, 


0132 




13413 





DS 


RECALTST 


14133 


6, 


0133 




00025 


VBSP1LD 


DS 


21 


14134 


6, 


0134 




00026 


VBSP2LD 


DS 


22 


14135 


6, 


0135 




00021 


1 VBSP3LD 


DS 


23 














ALLDC_OC 


EQV 


* 


14136 


6, 


0136 


5 


0, 


0414 





TS 


DECOUNT 



test if noun can be loaded 



test that the 2 data words loaded are 
all dec or all oct 



was DCA LODNNLOC, DXCH Z in Block II 
bank jump to noun table read rtne 



X comp 



Y comp 



was DCA LODNNLOC, DXCH Z in Block II 
bank jump to noun table read rtne 



X comp 



set CLPASS for PASSO only 



was DCA LODNNLOC, DXCH Z in Block II 
bank jump to noun table read rtne 



set CLPASS for PASSO only 



was DCA LODNNLOC, DXCH Z in Block II 
bank jump to noun table read rtne 



yes, COLOSSUS actually did this 



to block numerical chars and 

clears after a completed load 

after completed load, go to RECALTST 

to see if there is RECALL from ENDIDLE 

VB21 = ALOAD 
VB22 = BLOAD 
VB23 = CLOAD 



test that data words loaded are either 



4737 


6 


0737 


3 





0001 





4740 


6, 


0740 


5 


0, 


0556 


1 


4741 


6 


0741 


4 





0467 





4 742 


6 


0742 


5 





0021 


1 


4743 


6 


0743 


4 





0021 





4744 


6 


0744 


4 





0021 





4745 


6 


0745 


1 





0000 





4746 


6 


0746 





6 


6750 





4 74 7 


6 


0747 








0556 


1 


4750 


6, 


0750 


6 


0, 


0414 





4 751 


6 


0751 


1 





0000 





4 752 


6 


0752 





6 


6756 





4 753 


6 


0753 





6 


6755 





4754 


6 


0754 





6 


6756 





4 755 


6, 


0755 





6, 


6757 


1 


4756 


6 


0756 





2 


4474 


1 



XCH 


Q 


TS 


ALLDC_OC_ 


CS 


DECBRNCH 


TS 


SR 


CS 


SR 


CS 


SR 


CCS 


A 


TC 


*+2 


TC 


ALLDC OC 


AD 


DECOUNT 



(but It has been decremented by CCS) 
CCS A 

TC * + 4 

TC *+2 

TC *+2 

TC *+2 



14757 6,0757 3 0,0556 1 

14760 6,0760 5 0,0001 

14761 6,0761 0,0001 GOQ 



XCH 

TS 
TC 



ALMCYCLE 

ALLDC_OC_Q 

Q 

Q 



(needed to handle TCF conversion below) 
save return address 

all dec or all Oct; alarms if not 

shifted right 2 

dec comp bits in low 3 

some ones in low 3 (was TCF in Block II) 

all zeros, all Oct, OK so return 

dec comp = 7 for 3comp, =6 for 2comp 

must match 6 for 3comp, 5 for 2comp 

>0 

+ 

<0 

-0, was BZF *+2 in Block II 

alarm and recycle (does not return) 

restore return address 

all required are dec, OK 



SFRVTNOR 

gets SF routine number for normal case. 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 340. 

















SFRUTNOR 


EQU 


* 


4762 


6 


0762 


3 





0001 







XCH 


Q 


4763 


6 


0763 


5 


0, 


0411 







TS 


EX IT EM 


4764 


6 


0764 


3 


2 


4665 







CAF 


MID 5 


4765 


6 


0765 


7 


0, 


0444 


1 




MASK 


NNTYPTEM 


4766 


6 


0766 





2 


4640 


1 




TC 


RIGHT5 


4767 


6 


0767 








0411 







TC 


EX ITEM 



can ' t use L for return . 



SF routine number in A 



TESTFORDP uses L. 



SFRUTMIX 

gets SF routine number for mixed case . 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 340. 



SFRUTMIX 



4770 


6 


4771 


6 


4 772 


6 


4773 


6 


4774 


6 


4775 


6 


4776 


6 


4777 


6 


5000 


6 


5001 


6 



0770 3 0, 0001 

0771 5 0,0411 

0772 2 0, 0424 1 

0773 3 6, 7022 

0774 5 0, 0557 

0775 2 0, 0424 1 

0776 3 2, 4664 1 

0777 7 0, 0450 1 

1000 2 0, 0557 1 

1001 0, 0000 1 



EQU 
XCH 

TS 


* 

Q 

EX IT EM 




INDEX 

CAF 
TS 


DECOUNT 

DISPLACE 

SFRUTMIX_ 


L 


INDEX 

CAF 

MASK 


DECOUNT 

LOW5 

RUTMXTEM 




INDEX 

TC 


SFRUTMIX_ 



L 



gets SF routine number for mixed case 



put TC GOQ, TC RIGHTS, or TC LEFT5 in L 



; LOW5, MID5, or HI5 in A 

; get HJ5, MID5, or LOWS of RUTMXTAB entry 



; do TC GOQ (DECOUNT=0) , do TC RIGHT5 (DECOUNT=l) , do TC LEFTS (DEC0UNT=2) 
.1002 0,0411 SFRET1 TC EXITEM ; SF .routine number in A 















SFCONUM 


EQU 


* 


5003 


6 


1003 


3 


0, 


0001 





XCH 


Q 


5004 


6 


1004 


5 





0411 





TS 


EXITEM 


5005 


6 


1005 


2 


0, 


0435 


1 


INDEX 


MIXBR 


5006 


6 


1006 





6, 


7006 





TC 


* + 


5007 


6 


1007 





6 


7025 


1 


TC 


CONUMNOR 


5020 


6 


1010 


2 





0414 


1 


INDEX 


DECOUNT 


5022 


6 


1011 


3 


6, 


7022 





CAF 


DISPLACE 


5022 


6 


1012 


5 





0560 


1 


TS 


SFCONUM L 


5023 


6 


1013 


2 


0, 


0414 


1 


INDEX 


DECOUNT 


5024 


6 


1014 


3 


2 


4664 


1 


CAF 


L0W5 


5025 


6 


1015 


7 


0, 


0444 


1 


MASK 


NNTYPTEM 


5026 


6 


1016 


2 





0560 





INDEX 


SFCONUM L 


5027 


6 


1017 








0000 


1 


TC 






gets 2X (SF constant number) 



normal noun 
mixed noun 



put TC GOQ, TC RIGHT5, or TC LEFT5 in L 



do TC GOQ (DECOUNT=0) , do TC RIGHT5 (DEC0UNT=1) , do TC LEFT5 (DEC0UNT=2) 



15020 


6, 


1020 


6 


0, 


0000 


1 


SFRET 


DOUBLE 




15021 


6, 


1021 





0, 


0411 





DISPLACE 


TC 
EQV 


EX ITEM 


15022 


6, 


1022 





6, 


6761 


1 




TC 


GOQ 


15023 


6, 


1023 





2, 


4640 


1 




TC 


RIGHT5 


15024 


6, 


1024 





2, 


4647 





CONUMNOR 


TC 
EQV 


LEFT5 

* 


15025 


6, 


1025 


3 


2, 


4664 


1 




CAF 


L0«5 


15026 


6, 


1026 


7 


0, 


0444 


1 




MASK 


NNTYPTEM 


15027 


6, 


1027 


6 


0, 


0000 


1 




DOVBLE 




15030 


6, 


1030 





0, 


0411 





PVTCOM 


TC 
EQV 


EX ITEM 

* 


15031 


6, 


1031 


5 


0, 


0414 







TS 


DECOUNT 


15032 


6, 


1032 


3 


0, 


0001 







XCH 


Q 


15033 


6, 


1033 


5 


0, 


0412 







TS 


DECRET 


15034 


6, 


1034 


3 


1, 


2050 







CAF 


ZERO 


15035 


6, 


1035 


5 


0, 


0136 







TS 


MPAC+ 6 


15036 


6, 


1036 


2 


0, 


0414 


1 




INDEX 


DECOUNT 


15031 


6, 


1037 


3 


0, 


0475 


1 




XCH 


XREGLP 


15040 


6, 


1040 


5 


0, 


0131 


1 




TS 


MPAC+1 


15041 


6, 


1041 


2 


0, 


0414 


1 




INDEX 


DECOUNT 


15042 


6, 


1042 


3 


0, 


0472 







XCH 


XREG 


15043 


6, 


1043 


5 


, 


0130 







TS 


MPAC 


15044 


6, 


1044 


2 


, 


0435 


1 




INDEX 


MIXBR 


15045 


6, 


1045 





6, 


7045 


1 




TC 


* 


15046 


6, 


1046 





6, 


7077 







TC 


PVTNORM 



2X (SF constant number) in A 



normal noun always gets low 5 of 
NNTYPTAB for SF CONUM 



2X (SF constant number) in A 



normal noun 



if mixnoun , place address for component K into NOUN ADD , set EBANK bits . 



set IDADDTAB entry for component K 
of noun 

was CA IDAD1TEM in Block II 
(ECADR) SUBK for current comp of noun 
ECADR into NOUNCADR, sets EB , NOUNADD 
C (NOUNADD) in A upon return 
place (ESUBK)-K into NOUNADD 



+ dec 

+0 octal 

test if dec only bit = 1 . If so, 

ala rm and re cy cle . If not , continue . 

no DP 



5047 


6, 


1047 


2 


, 


0414 


1 




INDEX 


DECOUNT 


; 


5050 


6, 


1050 


3 


1, 


2050 







CAF 


ZERO 


; 


5051 


6, 


1051 


6 


, 


0445 


1 




AD 


IDAD1TEM 


; 


5052 


6, 


1052 


7 


2, 


4 672 


1 




MASK 


L0W11 


; 


5053 


6, 


1053 





2, 


4616 


1 




TC 


SETNCADR 


; 


5054 


6, 


1054 


2 


0, 


0000 


1 




EXTEND 




; 


5055 


6, 


1055 


6 


0, 


0414 







SU 


DECOUNT 


; 


5056 


6, 


1056 


5 


0, 


0442 







TS 


NOUNADD 




5057 


6, 


1057 


1 


0, 


0467 







CCS 


DECBRNCH 




5060 


6, 


1060 





6, 


7114 


1 




TC 


PUTDECSF 


} 


5061 


6, 


10 61 





6, 


6444 







TC 


DCTSTCYC 


} 


5062 


6, 


10 62 





6, 


6770 


1 




TC 


SFRUTMIX 


; 


5063 


6, 


10 63 





6, 


6240 


1 




TC 


DPTEST 


; 


5064 


6, 


1064 





6, 


7111 


1 


test for DP 


TC 
scale for 


PUTC0M2 
oct load. 


If so, 
















+0 into major part. S 


St NOUNADD 


for 



loading octal word into minor part. 



PUTDPCOM 



15065 
15066 
15067 
15070 



.10 65 3 

.1066 6 

.1067 6 

. 1070 5 



1.2050 
0, 0442 

1.2051 1 
0, 0442 



EQU 

CAF 
AD 
AD 
TS 



ZERO 
NOUNADD 
ONE 
NOUNADD 



was INCR NOUNADD in Block II 
DP (RSUBK) -K+l or E+l 



15071 
15072 



.1071 6 
.1072 5 



0,0414 
0,0414 



AD 
TS 



DECOUNT 
DECOUNT 



; (ESUBK)+1 or E+l into DECOUNT 
; was ADS DECOUNT in Block II 



15073 6,1073 3 1,2050 

15074 6,1074 2 0,0414 1 

15075 6,1075 5 17,7776 

15076 6,1076 6,7111 1 



CAF 
INDEX 

TS 
TC 



ZERO 
DECOUNT 
-1 
PUTC0M2 



; NOUNADD set for minor part 

; zero major part (ESUBK or El) 



PUTNORM 



15077 
15100 
15101 
15102 
15103 
15104 
15105 
15106 
15107 
15110 



6, 1077 
5, 1100 

5, 1101 

6, 1102 
5, 1103 
5, 1104 

5, 1105 

6, 1106 
6,1107 
S, 1110 



2, 4625 
0, 0467 
6, 7114 
6, 6444 
6, 6762 
6, 6240 
6, 7111 
1, 2050 
0, 0414 
6, 7065 



EQU 

TC 

CCS 

TC 

TC 

TC 

TC 

TC 

CAF 

TS 

TC 



SETNADD 

DECBRNCH 

PUTDECSF 

DCTSTCYC 

SFRUTNOR 

DPTEST 

PUTN0RM_1 

ZERO 

DECOUNT 

PUTDPCOM 



ECADR from NOUNCADR, sets EB, NOUNADD 

+DEC 

+0 octal 

test if dec only bit = 1. If so, 

alarm and recycle . If not, continue. 

no DP 



PUTN0RM_1 
PUTC0M2 



15111 6,1111 3 0,0130 

15112 6,1112 0,0412 



EQU * 

EQU * 

XCH MPAC 

TC DECRET 



eliminated Block II CHANNEL LOAD code 



15113 6,1113 



1617 6 GTSFINLC 



******* 



DS GTSFIN 

****** missing stuff 



PUTDECSF 

Finds MIXBR and DECOUNT still sst from PUTCOM 















PVTDECSF 


15114 


6 


1114 





6, 1003 







15115 


6, 


1115 


5 


0, 0420 


1 




15116 


6 


1116 


3 


6, 1113 







15117 


6, 


1111 





1, 3526 





; loads 


15120 


6 


1120 


2 


0, 0435 


1 




15121 


6 


1121 





6, 1121 


1 




15122 


6 


1122 





6, 1125 







15123 


6 


1123 





6, 6110 


1 




15124 


6 


1124 





6, 1126 







15125 


6, 


1125 





6, 6162 


1 


PUTSFNOR 


15126 


6 


1126 


2 


0, 0000 





PUTDCSF2 


15121 


6 


1121 


3 


6, 1131 







15130 


6 


1130 





1, 3112 







15131 


6 


1131 




14340 





SFINTABR 


15132 


6 


1132 




13011 







15133 


6 


1133 




12121 







15134 


6 


1134 




12116 


1 




15135 


6 


1135 




00000 


1 




15136 


6 


1136 




00000 


1 




15131 


6 


1131 




00000 


1 




15140 


6 


1140 




00000 


1 




15141 


6 


1141 




00000 


1 




15142 


6 


1142 




00000 


1 




15143 


6 


1143 




00000 


1 




15144 


6 


1144 




00000 


1 




15145 


6 


1145 




00000 


1 





EQV 

TC 
TS 



SFCONUM 
SF TEMPI 



CAF GTSFINLC 

TC DXCHJVMP 

1, SFTEMP2 



INDEX 


MIXBR 


TC 


* 


TC 


PVTSFNOR 


TC 


SFRVTMIX 


TC 


PVTDCSF2 


TC 


SFRVTNOR 


INDEX 


A 


CAF 


SFINTABR 


TC 


BANKJVMP 


CADR 


GOALMCYC 


CADR 


BINROVND 


CADR 


DEGINSF 


CADR 


ARTHINSF 


CADR 





CADR 





CADR 





CADR 





CADR 





CADR 





CADR 





CADR 





CADR 






2X (SF CON NVM) in A 



was DCA GTSFINLC, DXCH Z in Block II 
bank jump to SF const table read rtne 



swit 

0, a 
1 
2 
3 

4 ** 

5 ** 

6 ** 

7 ** 

8 ** 

9 * 
10 
11 
12 



ch banks for expansion room 
larm and recycle if dec load 



******* 



-******** 
-******** 
-******** 
-******** 

r******** 



BUNCH OF TABLE ENTRIES GO HERE!!!!! 

************ NEED TO ADD THE REST ************* 



BANK41_3 



ORG 
INCL 



BANK4 0_4 
bank40_4 . asm 



COLOSSUS pp. 343-346 



SCALE FACTOR ROUTINES ( file : bank 4 0_4 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 343-346. 















DEGINSF 


2121 


5, 


0121 





2 


4314 





2130 


5, 


0130 




06112 





2131 


5, 


0131 


1 





0131 





2132 


5, 


0132 


3 


1 


2066 





2133 


5, 


0133 





5 


6135 





2134 


5, 


0134 


4 


1 


2066 


1 


2135 


5, 


0135 


6 





0131 


1 


2136 


5, 


0136 





5 


1016 


1 


2131 


5, 


0131 





2 


4121 


1 


2140 


5, 


0140 





2 


4121 


1 DEGINSF2 


2141 


5, 


0141 





5 


1025 


1 


2142 


5, 


0142 





2 


4121 


1 


2143 


5, 


0143 


1 





0130 


1 


2144 


5, 


0144 





5 


6150 





2145 


5, 


0145 





5 


6150 





2146 


5, 


0146 


4 





0000 





2141 


5, 


0141 


5 





0130 





2150 


5, 


0150 


1 





0136 


1 SIGNFIX 


2151 


5, 


0151 





5 


6166 





2152 


5, 


0152 





5 


6162 


1 


2153 


5, 


0153 


1 





0130 


1 


2154 


5, 


0154 





5 


6211 





2155 


5, 


0155 





5 


6164 


1 


2156 


5, 


0156 





5 


6151 


1 


2151 


5, 


0151 


3 





0130 





2160 


5, 


0160 


7 


1 


2106 





2161 


5, 


0161 


5 





0130 




ENDSCALE 


2162 


5, 


0162 





1 


3653 


1 


2163 


5, 


0163 




15111 


1 



12164 5,0164 4 1,2106 NEG180 

12165 5,0165 5,6161 1 



EQU 


* 


TC 


DMP 


ADRES 


DEGC0N1 


CCS 


MPAC+1 


CAF 


BIT11 


TC 


*+2 


CS 


BIT11 


AD 


MPAC+1 


TC 


2R0UND+2 


TC 


TPSL1 


TC 


TPSL1 


TC 


TESTOFUF 


TC 


TPSL1 


CCS 


MPAC 


TC 


SIGNFIX 


TC 


SIGNFIX 


COM 




TS 


MPAC 


CCS 


MPAC+ 6 


TC 


SGNT01 


TC 


ENDSCALE 


CCS 


MPAC 


TC 


CCSHOLE 


TC 


NEG180 


TC 


* + l 


XCH 


MPAC 


MASK 


POSMAX 


TS 


MPAC 


EQU 


* 


TC 


POST JUMP 


CADR 


PUTC0M2 


CS 


POSMAX 


TC 


ENDSCALE-1 



SF routine for dec degrees 

mult by 5.5 5 (10)X2EXP-3 

this rounds off MPAC+1 before shift 

left 3, and causes 360.00 to OF/UF 

when shifted left and alarm 



left 1 
left 2 

returns if no OF/UF (left 3) 

if +, go to SIGNFIX 

if +0, go to SIGNFIX 

if -, use -MAGNITUDE + 1 

-f -0; use +0 

if overflow 

no overflow/underflow 

if UF, force sign to except 















SGNT01 


EQO 


* 


2166 


5 


0166 


4 


, 0130 


1 




cs 


MPAC 


2161 


5 


0161 


7 


1, 2106 







MASK 


POSMAX 


2110 


5 


0110 


4 


0, 0000 







CS 


A 


2111 


5, 


0111 





5, 6161 


1 




TC 


ENDSCALE-1 


2112 


5 


0112 




2 6161 





DEGC0N1 


DS 


%26161 


2113 


5, 


0113 




30101 


1 




DS 


%30101 


2114 


5 


0114 




21616 





DEGC0N2 


DS 


%21616 


2115 


5 


0115 




01011 







DS 


%01011 



if OV force sign to 1 



***********: 



missing st uff 



************* 















ARTHINSF 


2116 


5 


0116 





2, 4314 







2111 


5 


0111 




00420 


1 




3000 


5 


1000 


3 


0, 0132 


1 




3001 


5 


1001 


3 


0, 0131 


1 




3002 


5, 


1002 


3 


0, 0130 








13003 5,1003 1 0,0000 

13004 5,1004 5,1010 1 

13005 5,1005 5,1001 1 

13006 5,1006 5,1010 1 
13001 5,1001 5,1011 



3010 


5 


1010 





2 , 


4414 


1 


BINROUND 


3011 


5 


1011 





5 


1014 







3012 


5 


1012 





5 


1025 


1 




3013 


5 


1013 





5 


6162 


1 





EQO 


* 


TC 


BMP 


ADRES 


SF TEMPI 


XCH 


MPAC+2 


XCH 


MPAC+1 


XCH 


MPAC 


CCS 


A 


TC 


* + 4 


TC 


* + 2 


TC 


*+2 


TC 


BINROUND 


TC 


ALMCYCLE 


EQV 


* 


TC 


2R0VND 


TC 


TESTOFUF 


TC 


ENDSCALE 



scales MPAC, +1 by SFTEMP1, SFTEMP2 
assumes point between HI and LO parts 
of SFCON, shifts results left by 14. 
(by taking results from MPAC+1, MPAC+2) 



was BZF BINROUND in Block II 
>0 

+ 
<0 
-0 

/ too large a load, alarm and recycle 



missing stuff ** 

















2R0UND 


3014 


5 


1014 


3 





0131 


1 




3015 


5 


1015 


6 





0000 


1 




3016 


5 


1016 


5 





0131 


1 




3011 


5 


1011 








0001 







3020 


5 


1020 


6 





0130 







3021 


5 


1021 


5 





0130 







3022 


5 


1022 








0001 







3023 


5 


1023 


5 





0136 







3024 


5 


1024 





0, 


0001 





_2RNDEND 
TESTOFUF 



13025 5,1025 1 0,0136 1 

13026 5,1026 2,4414 1 
13021 5,1021 0,0001 
13030 5,1030 2,4414 1 



BANK 4 0_ 5 



BANK42_3 



EQU 


* 


XCH 


MPAC+1 


DOUBLE 




TS 


MPAC+1 


TC 


Q 


AD 


MPAC 


TS 


MPAC 


TC 


Q 


TS 


MPAC+ 6 


TC 


Q 


EQU 


* 


CCS 


MPAC+ 6 


TC 


ALMCYCLE 


TC 


Q 


TC 


ALMCYCLE 


EQU 


* 


ORG 


BANK 4 2 2 


EQU 


* 


ORG 


BANK 41 3 


INCL 


bank41 3 . asm 



if MPAC+1 does not OF/UF 



if MPAC does not OF/UF 



; returns if no OF/UF 
; OF , a la rm and re cy cle 



UF , a la rm and re cy cle 



; COLOSSUS pp. 349-351 



DISPLAY ROUTINES ( file : bank4 1_3 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 349-351. 



MONITOR allows other keyboard activity . It is ended by verb TERMINATE 
verb PROCEED WITHOUT DATA, verb RESEQUENCE, another monitor, or any 
NVSUB call that passes DSPLOCK (provided that the operator has somehow 
allowed the ending of a monitor whi ch he has initiated through the 
keyboard . 

MONITOR action is suspended, but not ended, by any keyboard action, 
except error light reset . It begins again when KEY RELEASE is performed . 
MONITOR saves the noun and appropriate display verb in MONSAVE . It saves 
NOUNCADR in M0NSAVE1 , if noun = machine CADR to be specified . Bit 15 of 
M0NSAVE1 is the kill monitor signal (killer bit) . Bit 14 of M0NSAVE1 
indicates the current monitor was externally initiated (external moni tor 
bit) . It is turned off by RELDSP and KILMONON . 

MONSAVE indicates if MONITOR is on (+=0N, +0=OFF) 

If MONSAVE is + , moni tor enters no request , but t urns killer bit off . 

If MONSAVE is +0 , monitor enters request and turns killer bit off . 

NVSUB (if external monitor bit is off), VB=PROCEED WITHOUT DATA, 



VB=RESEQUENCE, and VB=TERMINATE turn kill monitor bit on. 

If killer bit is on , MONREQ enters no further requests , zeroes MONSAVE 
and MONSAVE 1 (t urning off killer bit and external monitor bit ) . 

MONITOR doesn't test for MATBS since NVSUB can handle internal MATBS now. 















MONITOR 


EQO 


* 


15146 


6, 


1146 


4 


6 


1155 





cs 


BIT15_14 


15141 


6, 


1141 


7 





0506 




M0NIT1 


MASK 
EQV 


NOUNCADR 

* 


15150 


6, 


1150 


5 





0131 


1 


TS 


MPAC+1 ; 


15151 


6, 


1151 


4 





0433 


1 


CS 


ENTEXIT 


15152 


6, 


1152 


6 


2 


4553 





AD 


END INST 


15153 


6, 


1153 


1 





0000 





CCS 


A 


15154 


6, 


1154 





6 


1164 





TC 


M0NIT2 


15155 


6, 


1155 




60000 


1 BIT15_14 


DS 


%60000 


15156 


6, 


1156 





6 


1164 





TC 


M0NIT2 


15151 


6, 


1151 


3 


1 


2 63 





CAF 


BIT14 ; 


15160 


6, 


1160 


6 





0131 


1 


AD 


MPAC+1 ; 


15161 


6, 


1161 


5 





0131 


1 


TS 


MPAC+1 ; 


15162 


6, 


1162 


3 


1 


2050 





CAF 


ZERO 


15163 


6, 


1163 


5 





0511 


1 

M0NIT2 


TS 
EQV 


MONSAVE 2 ; 

* 


15164 


6, 


1164 


3 


1 


2101 





CAF 


LOW! 


15165 


6, 


1165 


7 





0410 





MASK 


VERBREG 


15166 


6, 


1166 





2 


4641 





TC 


LEFT5 


15161 


6, 


1161 


5 





0022 


1 


TS 


CYL 


15110 


6, 


1110 


4 





0022 





CS 


CYL 


15111 


6, 


1111 


3 





0022 


1 


XCH 


CYL 


15112 


6, 


1112 


6 





0411 





AD 


NOUNREG 


15113 


6, 


1113 


5 





0130 





TS 


MPAC ; 


15114 


6, 


1114 


3 


1 


2050 





CAF 


ZERO 


15115 


6, 


1115 


5 





0501 





TS 


DSPLOCK ; 


15116 


6, 


1116 


1 





0531 


1 


CCS 


CADRSTOR ; 


15111 


6, 


1111 





6 


1201 





TC 


*+2 


15200 


6, 


1200 





2 


5026 





TC 


RELDSP1 ; 


15201 


6, 


1201 


2 





0000 





INHINT 




152 02 


6, 


1202 


1 





0501 


1 


CCS 


MONSAVE 


15203 


6, 


1203 





6 


1201 





TC 


* + 4 


15204 


6, 


1204 


3 


1 


2051 


1 


CAF 


ONE ; 


15205 


6, 


1205 





1 


2232 





TC 


WAITLIST 


15206 


6, 


1206 




15215 





CADR 


MONREQ 


15201 


6, 


1201 


3 





0131 


1 


XCH 


MPAC+1 ; 


15210 


6, 


1210 


3 





0510 





XCH 


MONSAVE+1 


15211 


6, 


1211 


3 





0130 





XCH 


MPAC ; 


15212 


6, 


1212 


3 





0501 





XCH 


MONSAVE ; 


15213 


6, 


1213 


2 





0000 


1 


RELINT 




15214 


6, 


1214 








0433 




MONREQ 


TC 
EQV 


ENTRET 

* 


15215 


6, 


1215 





6 


1300 





TC 


LODSAMPT ; 


15216 


6, 


1216 


1 





0510 


1 


CCS 


M0NSAVE1 ; 


15211 


6, 


1211 





6 


1223 





TC 


* + 4 


15220 


6, 


1220 





6 


1223 





TC 


* + 3 ; 


15221 


6, 


1221 





6 


1232 





TC 


KILLMON ; 


15222 


6, 


1222 





6 


1232 





TC 


KILLMON ; 


15223 


6, 


1223 


3 


6 


1236 


1 


CAF 


MONDEL 


15224 


6, 


1224 





1 


2232 





TC 


WAITLIST ; 


15225 


6, 


1225 




15215 





CADR 


MONREQ 


1522 6 


6, 


1226 


3 


2 


4131 





CAF 


CHRPRIO 


15221 


6, 


1221 





1 


3162 


1 


TC 


NOV AC ; 


15230 


6, 


1230 




15231 





CADR 


MONDO 


15231 


6, 


1231 





1 


2413 




KILLMON 


TC 
EQV 


TASKOVER 

* 


15232 


6, 


1232 


3 


1 


2050 





CAF 


ZERO ; 


15233 


6, 


1233 


5 





0501 





TS 


MONSAVE 


15234 


6, 


1234 


5 





0510 





TS 


M0NSAVE1 ; 


15235 


6, 


1235 





1 


2413 





TC 


TASKOVER ; 


15236 


6, 


1236 




00144 


MONDEL 


DS 


%144 ; 



temp storage 



externally initiated monitor 
was ADS MPAC+1 in Block II 
set bit 14 for M0NSAVE1 



zero NVMONOPT options 



temp storage 

+0 into DSPLOCK so monitor can run 
turn off KR lite if CADRSTOR and DSPLIST 
are both empty . (Lite comes on if new 
monitor is keyed in over old monitor . ) 



if MONSAVE was +, no request 

if MONSAVE was 0, request MONREQ 



was DXCH MPAC, DXCH MONSAVE 



place moni tor verb and noun into MONSAVE 
zero the kill moni tor bit 



set up external moni tor bit 



called by waitlist (see COLOSSUS p. 374) 
time is snatched in RUPT for NOUN 65 
if killer bit = , enter requests 
if killer bit = , enter requests 
if killer bit = 1 , no requests 
if killer bit = 1 , no requests 



enter waitlist request for MONREQ 



enter EXEC request for MONDO 



zero MONSAVE and turn killer bit off 



turn off kill moni tor bit 
turn off external moni tor bit 



for 1 sec moni tor intervals 















MONDO 


EQU 


* 


5237 


6, 


1237 


1 


, 


0510 


1 


CCS 


MONSAVE1 ) 


5240 


6, 


1240 





6, 


7244 


1 


TC 


* + 4 


5241 


6, 


1241 





6, 


7244 


1 


TC 


* + 3 


5242 


6, 


1242 





1, 


2723 





TC 


ENDOFJOB ; 


5243 


6, 


1243 





1, 


2723 





TC 


EtiDOFJOB ; 


5244 


6, 


1244 


1 


, 


0501 


1 


CCS 


DSPLOCK 


5245 


6, 


1245 





6, 


7276 





TC 


MONBUSY ; 


5246 


6, 


1246 


3 


1, 


2101 





CAF 


LOH7 


524 7 


6, 


1241 


7 


0, 


0507 


1 


MASK 


MONSAVE 


5250 


e, 


1250 





6, 


630 6 


1 


TC 


UPDATNN-1 ; 


5251 


6, 


1251 


3 


2, 


4473 





CAF 


MID 7 


5252 


6, 


1252 


7 


, 


0507 


1 


MASK 


MONSAVE ; 


5253 


6, 


1253 


6 


6, 


7274 


1 


AD 


MONREF ; 


5254 


6, 


1254 


5 


0, 


0020 





TS 


CYR ; 


5255 


6, 


1255 


4 


0, 


0020 


1 


CS 


CYR 


5256 


6, 


1256 


4 


, 


0020 


1 


CS 


CYR 


5257 


e, 


1257 


4 


, 


0020 


1 


CS 


CYR 


5260 


6, 


1260 


4 


0, 


0020 


1 


CS 


CYR 


52 61 


6, 


1261 


4 


0, 


0020 


1 


CS 


CYR 


52 62 


6, 


1262 


4 


0, 


0020 


1 


CS 


CYR 


52 63 


6, 


1263 


3 


0, 


0020 





XCH 


CYR 


5264 


6, 


1264 


7 


1, 


2101 


1 


MASK 


LOW7 


52 65 


6, 


1265 


5 


0, 


0470 


1 


TS 


VERBREG 


5266 


e, 


1266 


3 


6, 


7275 





CAF 


MONBACK ; 


52 6 7 


6, 


1267 


5 


0, 


0433 





TS 


ENTRET 


5270 


6, 


1270 


4 


6, 


7155 





CS 


BIT15_14 


52 71 


6, 


1271 


7 


0, 


0510 


1 


MASK 


MONSAVE1 


52 72 


6, 


1272 


5 


0, 


0132 


1 


TS 


MPAC+2 ; 


52 73 


6, 


1273 





6, 


6054 


ENDMONDO 


TC 


TES TNN ; 



called by EXEC 

if killer bit = 0, continue 

if killer bit = 0, continue 

in case TERMINATE came since last MONREQ 

in case TERMINATE came since last MONREQ 

NVSUB is busy 



place noun into NOUNREG and display it 



change monitor verb to display verb 
-DEC10, starting in bit5 



shift right 7, was TS EDOP , CA EDOP in BII 



set return to PASTEVB after data display 



display it and set NOUNCADR, NOUNADD , 
EBANK 



; COLOSSUS switches to fixed/ fixed memory and inserts PASTEVB here — 

; Probably, because their assembler couldn't handle forward references. 



15274 
15275 



. 1274 
. 1275 



753 7 7 MONREF 
04 435 1 MONBACK 



DS 
CADR 



%75377 
PASTEVB 



-declO, starting in bit8 



15276 
15277 



1276 2,4713 MONBUSY 
.1277 1,2723 



TC 
TC 



RELDSPON 
ENDOFJOB 



turn key release light 



15300 6,1300 0,0001 LODSAMPT 
**************************** 

BANK41_4 



TC 
EQU 



****************** FIX 



ORG 
INCL 



BANKFF_ 1 
bankffl . asm 



COLOSSUS pp. 351 



DISPLAY ROUTINES ( file : bank ff_l . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 351. 



PASTEVB 



04435 


4435 


3 


2 


4473 





04436 


4436 


7 





0511 





04437 


4437 


5 





0571 


1 


04440 


4440 


1 





0000 





04441 


4441 





2 


4443 





04442 


4442 





2 


4444 


1 


04443 


4443 





2 


4445 





04444 


4444 





2 


4447 


1 


04445 


4445 


3 





0571 


1 


04446 


4446 





2 


4451 





04447 


4447 


3 


1 


2050 





04450 


4450 


6 





0507 




PASTEOPT 


04451 


4451 


5 





0020 





04452 


4 4 52 


4 





0020 


1 


04453 


4453 


4 





0020 


1 


04454 


4454 


4 





0020 


1 


04455 


4455 


4 





0020 


1 


04456 


4456 


4 





0020 


1 


04457 


4457 


4 





0020 


1 


04460 


4460 


3 





0020 





04461 


4461 


7 


1 


2101 


1 


04462 


4 4 62 





1 


3565 


1 


04463 


4463 




14326 






EQU 
CAF 
MASK 

TS 

CCS 

TC 

TC 

TC 

TC 

XCH 

TC 

CAF 
AD 

EQU 

TS 

CS 

CS 

CS 

CS 

CS 

CS 

XCH 

MASK 

TC 
CADR 



MID 7 

MONSAVE2 

PASTE_TMP 

A 

* + 2 

* + 2 
*+2 

* + 3 

PASTE_TMP 
PASTEOPT 

ZERO 
MONSAVE 



CYR 
CYR 
CYR 
CYR 
CYR 
CYR 
CYR 
CYR 
LOW7 

BANKCALL 
UPDATVB-1 



NVMONOPT paste option 



was BZF *+2 in Block II 
>0, 

+ 0, 

<o, 
-o, 



paste please verb for NVMONOPT 



was CA MONSAVE in BII 

paste monitor verb - paste option is 



shift right 7, was TS EDOP, CA EDOP in BII 



place monitor verb or please verb into 
VERBREG and display it. 



04464 


4464 


3 


1, 2050 









CAF 


ZERO 


04465 


44 65 


5 


0, 0502 









TS 


REQRET 


04466 


4466 


3 


1, 2050 









CAF 


ZERO 


04461 


4467 


6 


0, 0511 


1 






AD 


M0NSAVE2 


04470 


4470 





2, 4565 









TC 


BLANKSUB 


368) 


















04471 


4471 





2, 4 472 


1 






TC 


* + l 


04472 


4 472 





1, 2723 





ENDPASTE 


TC 


ENDOFJOB 


04473 


4473 




37600 





MID 7 
BANKFF_ 


_2 


DS 
EQV 

ORG 
INCL 


%37600 

* 

BANK41_4 
bank41 4 . asm 



; zero REQRET so that pasted verbs can 
; be executed by operator . 



was CA M0NSAVE2 in BII 

process NVMONOPT blank option if any (p. 



COLOSSUS pp. 352 



DISPLAY ROUTINES ( file : bank4 1_4 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 352. 



DSPFMEM — DISPLAY FIXED MEMORY 

Used to display (in octal ) any fixed register . It is used with NOUN = 

machine CADR to be specified . The FCADR of the desired location is then 

punched in. It handles F/F (FCADR 4000-7777) 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 

Oct 28, 1968, p. 352. 

















DSPFMEM 


EQV 


* 


5301 


6 


1301 


3 


2 


4635 







CAF 


R1D1 


5302 


6, 


13 02 


5 





0466 







TS 


DSPCOVNT 


5303 


6 


1303 


3 


1 


2050 







CAF 


ZERO 


5304 


6 


1304 


6 





0506 


1 




AD 


NOUNCADR 


5305 


6, 


1305 





1 


3742 







TC 


DATACALL 


5306 


6 


1306 





6 


7310 


1 




TC 


DSPOCTWD 


5307 


6, 


1307 





1 


2723 





ENDSPF 
BANK41_5 


TC 
EQV 

ORG 
INCL 


ENDOFJOB 

* 

BANK 4 0_ 5 
bank4 5 . asm 



If F/F, DATACALL uses bank 02 or 03 



was CA NOUNCADR, TC SUPDACAL in Block II 
original FCADR loaded still in NOUNCADR 
call with FCADR in A 



COLOSSUS pp. 353-355 



WORD DISPLAY ROUTINES ( file : bank4 0_5 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 353-355. 



13031 
13032 



5,1031 3 0,0001 
5, 1032 5 0, 0441 



13033 5,1033 1 0,0130 1 

13034 5,1034 5,7044 

13035 5,1035 5,7044 

13036 5,1036 6 1,2051 1 

13037 5,1037 5 0,0130 

13040 5,1040 5,6353 1 

13041 5,1041 4 0,0131 

13042 5,1042 5 0,0131 1 

13043 5,1043 0,0441 

13044 5,1044 5,6332 

13045 5,1045 0,0441 



DSPSIGN 


EQU 


* 




XCH 


Q 




TS 


DSPWDRET 




CCS 


MPAC 




TC 


* + 8 




TC 


*+7 




AD 


ONE 




TS 


MPAC 




TC 


M ON 




CS 


MPAC+1 




TS 


MPAC+1 




TC 


DSPWDRET 




TC 


P_ON 




TC 


DSPWDRET 



>0 , posi tive sign 
+0 , posi tive sign 



display minus sign 



display plus sign 
return 



DSPRND 

Round up decimal fraction by 5 EXP —6 . This was entirely coded in 
Block II instructions, so I translated it to the functional 
equivalent in Block I code . 



Adapted from the AGC Block II COLOSSUS rev 24S 
Oct 28, 1968, p. 353. 



assembly listing, 



13046 
13047 



5, 1046 3 
5,1047 6 



5, 7117 1 
0, 0131 1 



EQU 


* 


CAF 


DECROUND 


AD 


MPAC+1 



3050 


5 


1050 


5 


0, 0131 


1 


TS 


MPAC+1 


3051 


5 


1051 


3 


1, 2050 





CAF 


ZERO 


3052 


5 


1052 


6 


0, 0130 





AD 


MPAC 


3053 


5 


1053 


5 


0, 0130 





TS 


MPAC 


3054 


5 


1054 





0, 0001 





TC 


Q 


3055 


5 


1055 


3 


5, 7063 





CAF 


DPOSMAX+1 


3056 


5 


1056 


5 


0, 0131 


1 


TS 


MPAC+1 


3057 


5 


2057 


3 


5, 7062 


1 


CAF 


DPOSMAX 


3060 


5 


1060 


5 


0, 0130 





TS 


MPAC 


3061 


5 


10 61 





0, 0001 




DPOSMAX 


TC 
EQV 


Q 

* 


3062 


5 


10 62 




37777 


1 


DS 


%37777 


3063 


5 


10 63 




34000 





DS 


%34000 



skip on overflow 

otherwise , make interword carry=0 



skip on overflow 
return 



number overflows , so set to max 



return 

max positive decimal fraction 



DSPDECTWD DISPLAY DECIMAL WORD 

Converts C(MPAC, MPAC+1) into a sign and 5 char decimal starting in loc 
specified in DSPCOUNT . it rounds by 5 exp 6. 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 353. 



DSPDECWD 



13064 
13065 



5, 1064 3 0, 0001 
5, 1065 5 0, 0412 



13066 5,1066 5,7031 1 

13067 5,1067 5,7046 1 
13070 5,1070 3 1,2054 1 



DSPDCWD1 



13071 5,1071 5 0,0434 1 

13072 5,1072 3 2,4700 1 

13073 5,1073 2,4353 















TRACE1 


13074 


5 


1074 


2 





0130 


1 


13075 


5 


1075 


3 


1 


37 72 





13076 


5 


1076 


7 


2 


4664 





13077 


5 


1077 


5 





0421 





13100 


5 


1100 


3 


1 


2050 





13101 


5 


1101 


3 





0132 


1 


13102 


5 


1102 


3 





0131 


1 


13103 


5 


1103 


5 





0130 





13104 


5 


1104 


3 





0466 




TRACE1S 


13105 


5 


1105 


5 





0440 


1 


13106 


5 


1106 


1 





0000 





13107 


5 


1107 


5 





0466 





13110 


5 


1110 





5 


7161 





13111 


5 


1111 


1 





0434 





13112 


5 


1112 





5 


7071 






13113 5,1113 4 2,4675 

13114 5,1114 5 0,0466 

13115 5,1115 0,0412 



13116 
13117 



5, 1116 
5, 1117 



00000 1 

02476 DECROVND 



EQV 


* 


XCH 


Q 


TS 


WDRET 


TC 


DSPSIGN 


TC 


DSPRND 


CAF 


FOUR 


EQV 


* 


TS 


WDCNT 


CAF 


BINCON 


TC 


SHORTMP 


EQV 


* 


INDEX 


MPAC 


CAF 


RELTAB 


MASK 


LO«5 


TS 


CODE 


CAF 


ZERO 


XCH 


MPAC+2 


XCH 


MPAC+1 


TS 


MPAC 


XCH 


DSPCOVNT 


EQV 


* 


TS 


COUNT 


CCS 


A 


TS 


DSPCOVNT 


TC 


DSP IN 


CCS 


WDCNT 


TC 


DSPDCWD1 


CS 


VD1 


TS 


DSPCOVNT 


TC 


WDRET 


DS 


%00000 


DS 


%02476 



decrement DSPCOUNT except at +0 

>0 , not done yet 

+ 

return 



DSPDECNR 

Converts C(MPAC, MPAC+1) into a sign and 5 char decimal starting in loc 

specified in DSPCOUNT . It does not round. 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 354. 



13120 5,1120 3 0,0001 

13121 5,1121 5 0,0412 

13122 5,1122 5,7031 1 

13123 5,1123 5,7070 1 



DSPDECNR 


EQV 


* 




XCH 


Q 




TS 


WDRET 




TC 


DSPSIGN 




TC 


DSPDCWD1-1 



DSPDC2NR 

Converts C (MPAC , MPAC+1 ) into a sign and 2 char decimal starting in loc 

specified by DSPCOUNT . It does not round. 



; Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
; Oct 28, 1968, p. 354. 



13124 5,1124 3 

13125 5,1125 5 

13126 5, 1126 
13121 5, 1127 3 
13130 5,1130 









DSPDC2NR 


EQU 


* 





0001 







XCH 


Q 





0412 







TS 


WDRET 


5 


7031 


1 




TC 


DSPSIGN 


1 


2051 


1 




CAF 


ONE 


5 


7071 







TC 


DSPDCWD1 



DSP2DEC 

Converts C (MP AC) and C (MPAC+1 ) Into a sign and 10 char decimal starting 

in the loc specified in DSPCOUNT . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 354. 

















DSP2DEC 


EQU 


* 






3131 


5 


1131 


3 





0001 







XCH 


Q 






3132 


5 


1132 


5 





0412 







TS 


WDRET 






3133 


5 


1133 


3 


1 


2050 







CAF 


ZERO 






3134 


5 


1134 


5 





0421 







TS 


CODE 






3135 


5 


1135 


3 


1 


2053 







CAF 


THREE 






3136 


5 


1136 





5 


7253 


1 




TC 


11DSPIN 


; -R2 


off 


3137 


5 


1137 


3 


1 


2054 


1 




CAF 


FOUR 






3140 


5 


1140 





5 


7253 


1 




TC 


11DSPIN 


; +R2 


off 


3141 


5 


1141 





5 


7031 


1 




TC 


DSPSIGN 






3142 


5 


1142 


3 


2 


4 63 6 







CAF 


R2D1 






3143 


5 


1143 





5 


7071 





END2DEC 


TC 


DSPDCWD1 







DSPDECVN 

Displays C (A) upon entry as a 2 char decimal beginning in the 

loc specified in DSPCOUNT . 

C(A) should be in form N x 2EXP-14 . This is scaled to form N/100 before 

display conversion. 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 353. 



13144 
13145 

13146 
13147 

13150 
13151 
13152 
13153 
13154 



5.1144 2 

5.1145 4 

5, 1146 3 
5, 1147 5 

5.1150 3 

5.1151 5 

5.1152 3 

5.1153 5 

5.1154 



13155 5,1155 



DSPDECVN 

0, 0000 1 

5, 7155 

0, 0003 1 

0, 0130 

1,2050 

0, 0131 1 

0, 0001 

0, 0412 

5, 7127 1 

00244 VNDSPCON 



EQU 


* 


EXTEND 




MP 


VNDSPCON 


XCH 


LP 


TS 


MPAC 


CAF 


ZERO 


TS 


MPAC+1 


XCH 


Q 


TS 


WDRET 


TC 


DSPDC2NR+3 



mult by . 01 



was LXCH MPAC in Block II 

take results from LP (mult by 2EXP1 4) 



no sign, no round, 2 char 
. 01 rounded up 



13156 5, 1156 

13157 5, 1157 
13160 5,1160 







GOVNUPDT 


EQU 


* 


5, 7144 


1 




TC 


DSPDECVN 


1, 3653 


1 




TC 


POST JUMP 


14337 







DS 


UPDAT1+2 






BANK 4 6 


EQU 


* 



this is not for general use. Really part 
of UPDATVB 



ORG 
INCL 



bank41_5 . asm 



COLOSSUS pp. 355-356 



DISPLAY ROUTINES ( file : bank41_5 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 355-356. 



DSPOCTWD DISPLAY OCTAL WORD 

Displays C (A) upon entry as a 5 char octal starting in the DSP char 
specified in DSPCOUNT . It stops after 5 char have been displayed . 



DSP2BIT DISPLAY 2 OCTAL CHARS 

Displays C (A) upon entry as a 2 char Oct beginning in the DSP 
loc specified in DSPCOUNT by pre-cycling right C (A) and using 
the logic of the 5 char octal display . 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 355/356. 



15310 6,1310 5 0,0022 1 

15311 6,1311 3 0,0001 

15312 6,1312 5 0,0412 

15313 6,1313 3 1,2063 

15314 6,1314 6 0,0466 

15315 6,1315 5 0,0466 



DSPOCTWD 


EQU 


* 




TS 


CYL 




XCH 


Q 




TS 


WDRET 




CAF 


BIT14 




AD 


DSPCOVNT 




TS 


DSPCOVNT 



must use the same return as DSP2BIT 



to blank signs 

was ADS DSPCOUNT in block II 



15316 


6, 


1316 


3 


1 


2054 


1 

WDAGAIN 


CAF 
EQV 


FOUR 

* 


15311 


6, 


1311 


5 





0434 


1 


TS 


WDCNT 


15320 


6, 


1320 


4 





0022 





CS 


CYL 


15321 


6, 


1321 


4 





0022 





CS 


CYL 


15322 


6, 


1322 


4 





0022 





CS 


CYL 


15323 


6, 


1323 


4 





0000 





CS 


A 


15324 


6, 


1324 


7 


1 


2051 





MASK 


DSPMSK 


15325 


6, 


1325 


2 





0000 





INDEX 


A 


15326 


6, 


1326 


3 


1 


3112 





CAF 


RELTAB 


15321 


6, 


1321 


7 


2 


4664 





MASK 


L0W5 


15330 


6, 


1330 


5 





0421 





TS 


CODE 


15331 


6, 


1331 


3 





0466 





XCH 


DSPCOUNT 


15332 


6, 


1332 


5 





0440 


1 


TS 


COUNT 


15333 


6, 


1333 


1 





0000 





CCS 


A 


15334 


6, 


1334 


5 





0466 





TS 


DSPCOUNT 


15335 


6, 


1335 





1 


3653 


1 


TC 


POST JUMP 


15336 


6, 


1336 




13261 





DS 


DSPOCTIN 














OCTBACK 


EQV 


. 


15331 


6, 


1331 


1 





0434 





CCS 


WDCNT 


15340 


6, 


1340 





6 


1311 




DSPLW 


TC 
EQV 


WDAGAIN 

* 


15341 


6, 


1341 


4 


2 


4615 





CS 


VD1 


15342 


6, 


1342 


5 





0466 





TS 


DSPCOUNT 


15343 


6, 


1343 








0412 




DSPMSK 
DSP2BIT 


TC 

EQV 

EQV 


WDRET 
SEVEN 

* 


15344 


6, 


1344 


5 





0020 





TS 


CYR 


15345 


6, 


1345 


3 





0001 





XCH 


Q 


15346 


6, 


1346 


5 





0412 





TS 


WDRET 


15341 


6, 


1341 


3 


1 


2051 


1 


CAF 


ONE 


15350 


6, 


1350 


5 





0434 


1 


TS 


WDCNT 


15351 


6, 


1351 


4 





0020 


1 


CS 


CYR 


15352 


6, 


1352 


4 





0020 


1 


CS 


CYR 


15353 


6, 


1353 


3 





0020 





XCH 


CYR 


15354 


6, 


1354 


5 





0022 


1 


TS 


CYL 


15355 


6, 


1355 





6 


1324 





TC 


WDAGAIN+5 



decrement DSPCOUNT except at +0 

> 
+ 



to block numerical characters , clears 
* return 



BANK41_6 



EQU 



ORG 
INCL 



BANK 4 0_ 6 
bank40_6 . asm 



COLOSSUS pp. 356-358 



DISPLAY ROUTINES ( file : bank40_6 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 356-358. 



DSPIW 



DISPLAY RELAY CODE 



For DSPIN, place 0-25 Oct into COUNT to select the character (same as DSPCOUNT) , 
5 bit relay code into CODE. Both are destroyed . If bit 14 of COUNT is 1, sign is 
blanked with left char. 

For DSPIN11, place 0,1 into CODE, 2 into COUNT, rel address of DSPTAB entry 
into DSREL. 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 356. 



13161 
13162 



5,1161 3 0,0001 
5, 1162 5 0, 0411 



EQU 


* 


XCH 


Q 


TS 


D SEX IT 



cant use L for RETURN, since many of the 
routines calling DSPIN use L as RETURN 



Set DSREL to index into DSPTAB ; the index corresponds to the display character 
referenced by COUNT (which is derived from DSPCOUNT) 



13163 5,1163 3 2,4664 1 

13164 5,1164 7 0,0440 

13165 5,1165 5 0,0021 1 

13166 5,1166 3 0,0021 1 
13161 5,1167 5 0,0436 



CAF 


L0W5 


MASK 


COUNT 


TS 


SR 


XCH 


SR 


TS 


DSREL 



divides by 2 



Check COUNT (derived from DSPCOUNT) to find whether the character to be 
displayed is in the right (Bits 5-1) or left (Bits 10-6) bits of the 
DSPTAB word. 



13110 5,1170 3 1,2100 1 

13171 5,1171 7 0,0440 

13172 5,1172 1 0,0000 

13173 5,1173 5,7175 

13174 5,1174 5,7205 1 



CAF 


BIT1 




MASK 


COUNT 




CCS 


A 




TC 


*+2 




TC 


DSPIN1 


-1 



>0, left if COUNT is odd 
+0, right if COUNT is even 



Character to be displayed should be in the left bits (Bit 10-6), so 
shift it left into bits 10-6. 



13175 5,1175 3 0,0421 

13176 5,1176 2,4656 

13177 5,1177 5 0,0421 



XCH 


CODE 


TC 


S LEFT 5 


TS 


CODE 



does not use CYL 



Set COUNT as an enumerated type; tells how to mask the new character 
Into the relay word . 

= mask new character into right side of relayword (bits 5-1 ) 

1 = mask into left side (bits 10-6) and leave old sign (bit 11) alone . 

2 = mask into left side (bits 10-6) and blank sign bit (bit 11) 



3200 


5 


1200 


3 


1 


2063 





3201 


5 


1201 


7 





0440 





32 02 


5 


1202 


1 





0000 





3203 


5 


1203 


3 


1 


2052 


1 


32 4 


5 


1204 


6 


1 


2051 


1 


3205 


5 


1205 


5 





0440 


1 



CAF 


BIT14 


MASK 


COUNT 


CCS 


A 


CAF 


TWO 


AD 


ONE 


TS 


COUNT 



>0, BIT14 = 1, blank sign 

+0, BIT14 = 0, leave sign alone 



New display character in CODE has been bit-shifted into the correct (left 
or right) bit position. All other bits are zeroed. 



13206 5,1206 2 0,0000 



EQU 
1NHINT 



Get the existing display word from DSPTAB . Words that have already been 
displayed will be positive; words yet to be displayed will be negative. 
Use CCS to load the absolute value of the display word. Since CCS decrements 
it, we need to add 1 to restore the value. 



13207 5,1207 2 0,0436 1 

13210 5,1210 1 0,0512 

13211 5,1211 5,7213 

13212 5,1212 5,7245 

13213 5,1213 6 1,2051 1 

13214 5,1214 5 0,0437 1 



INDEX 


DSREL 


CCS 


DSPTAB 


TC 


* + 2 


TC 


DSLV 


AD 


ONE 


TS 


DSMAG 



>0, old word already displayed 

+0, illegal DSPCOUNT (was TC CCSHOLE) 

<0, old word not displayed yet 

store the old relay word 



Now, mask off the portion of the old relay word corresponding to the 
new character . Subtract the new character from the old to see whether 
they are the same. 



13215 5,1215 2 0,0440 

13216 5,1216 7 5,72^7 

13217 5,1217 2 0,0000 1 
13220 5,1220 6 0,0421 



INDEX COUNT 

MASK DSMSK 

EXTEND 

SU CODE 



mask with 00037, 01740, 02000, or 03740 



Old code same as new code? If so, we don't need to redisplay it. 



3221 


5 


1221 


1 


0, 


0000 





3222 


5 


1222 





5, 


722 6 





3223 


5 


1223 





5, 


7245 





3224 


5 


1224 





5, 


722 6 





3225 


5 


1225 





5, 


7245 






CCS 


A 


TC 


DFRNT 


TC 


DSLV 


TC 


DFRNT 


TC 


DSLV 



was BZF DSLV in Block II 

>0 

+0 , same, so return 

<0 

—0, same, so return 



New code is different. 



1322 6 
1322 7 
13230 
13231 



5, 1226 2 
5,1227 4 
5, 1230 7 
5, 1231 6 



0, 0440 

5, 7247 

0, 0437 

0, 0421 



EQU * 

INDEX COUNT 

CS DSMSK 

MASK DSMAG 

AD CODE 



di fferent 

mask with 77740, 76037, 75777, or 74037 



Store new DSPTAB word and get the old (previous) word. If the old word is 
negative , it had not been displayed yet, so NOUT (the count of undisplayed 



words) has already been incremented for this DSPTAB word. If the old word 
is positive , it has already been displayed, so we need to increment NOUT 
to tell DSPOUT to display the new word. 



13232 5,1232 4 0,0000 

13233 5,1233 2 0,0436 1 

13234 5,1234 3 0,0512 1 

13235 5,1235 1 0,0000 

13236 5,1236 5,7242 1 

13237 5,1237 5,7241 1 

13240 5,1240 5,7241 1 

13241 5,1241 5,7245 



cs 


A 


INDEX 


DSREL 


XCH 


DSPTAB 


CCS 


A 


TC 


* + 4 


TC 


* + 2 


TC 


* + l 


TC 


DSLV 



was BZMF DSLV in Block II 

>0 

+0, DSPTAB entry was - 

<0, DSPTAB entry was - 

-0, DSPTAB entry was - 



13242 5,1242 3 0,0505 1 
II) 

13243 5,1243 6 1,2051 1 

13244 5,1244 5 0,0505 1 

13245 5,1245 2 0,0000 1 DSLV 

13246 5,1246 0,0411 



DSPTAB entry was + (was INCR NOUT in Block 



13247 5,1247 

13250 5,1250 

13251 5,1251 

13252 5,1252 



00037 

01740 

02000 

03740 1 



AD 


ONE 


TS 


NOUT 


RELINT 




TC 


D SEX IT 


EQV 


* 


DS 


%00037 


DS 


%01740 


DS 


%02000 


DS 


%03740 



COUNT=0 
C0UNT=1 
C0UNT=2 
C0UNT=3 



For 11DSPIN, put rel address of DSPTAB entry into A, 1 in BIT11 or in 
BIT11 of CODE. I changed the name to 11DSPIN because my assembler doesn't 
like labels that start with a digit. 

















_11DSPIN 


EQV 


* 


3253 


5 


1253 


5 





0436 







TS 


DSREL 


3254 


5 


1254 


3 


1 


2052 


1 




CAF 


TWO 


3255 


5 


1255 


5 





0440 


1 




TS 


COUNT 


3256 


5 


1256 


3 





0001 







XCH 


Q 


3257 


5 


1257 


5 





0411 







TS 


D SEX IT 


3260 


5 


1260 





5 


7206 


1 


DSPOCTIN 


TC 
EQV 


DSPIN1 

* 


32 61 


5 


1261 





5 


7161 







TC 


DSPIW 


32 62 


5 


1262 


3 


5 


7264 







CAF 


*+2 


32 63 


5 


1263 





1 


3712 







TC 


BANKJUMP 


3264 


5 


1264 




15337 


1 


ENDSPOCT 


DS 


OCTBACK 



must use same return as DSPIN 



so DSPOCTWD doesn't use SWCALL 



; DSPALARM finds TC NVSUBEND in ENTRET for NVSUB initiated routines. 

; Abort with 01501. 

; DSPALARM finds TC ENDOFJOB in ENTRET for keyboard initiated routines . 

; do TC ENTRET. 



13265 5,1265 4 2,4675 

13266 5,1266 5 0,0466 



13267 5,1267 4 5,7314 1 

13270 5,1270 6 0,0433 

13271 5,1271 1 0,0000 

13272 5,1272 5,7276 

13273 5,1273 5,7275 

13274 5,1274 5,7276 

13275 5,1275 5,7311 



13276 
1327 7 



13307 
13310 



5, 1276 4 
5,1277 6 



5, 7313 
0, 0433 



13300 5,1300 1 0,0000 

13301 5,1301 5,7305 

13302 5,1302 5,7304 1 

13303 5,1303 5,7305 

13304 5,1304 5,7306 

13305 5,1305 5,7307 1 

13306 5,1306 2,4536 



5,1307 2,4701 
5,1310 1,2723 



13311 5,1311 2,5050 1 

13312 5,1312 01501 1 

13313 5,1313 04435 1 

13314 5,1314 2,4532 1 



PREDSPAL 


EQU 


* 






CS 


VD1 






TS 


DSPCOUNT 




DSPALARM 


EQU 


* 






CS 


NVSBENDL 






AD 


ENTEXIT 






CCS 


A , 


was BZF CHARALRM+2 in Block II 




TC 


* + 4 


>0 




TC 


*+2 


+ 




TC 


*+2 


<0 




TC 


CHARALRM+2 , 


-0 




CS 


MONADR , 


if this is a monitor , kill it 




AD 


ENTEXIT 






CCS 


A , 


was BZF *+2 in Block II 




TC 


* + 4 


>0 




TC 


*+2 


+ 




TC 


*+2 


<0 




TC 


*+2 


-0 




TC 


* + 2 






TC 


KILMONON 




CHARALRM 


EQU 


* 






TC 


F ALTON , 


not NVSUB initiated, turn on 




TC 


ENDOFJOB 






TC 


POODOO 






DS 


%01501 




MONADR 


DS 


PASTEVB 




NVSBENDL 


TC 


NVSUBEND 





BANK4 0_7 



ORG 
INCL 



BANKFF_2 
bankff_2 . asm 



COLOSSUS pp. 358 



DISPLAY ROUTINES ( file : bank ff_2 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 358. 



ALMCYCLE 

Turns on check fail light, redisplays the original verb that was executed, 
and recycles to execute the original verb/noun combination that was last 
executed . Used for bad data during load verbs and by MCTBS . Also by MMCHANG 
if 2 numerical chars were not punched in for MM code. 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 358. 













ALMCYCLE 


EQU 


* 


04474 


4474 





2, 4701 









TC 


F ALTON ; 


04475 


4475 


4 


0, 0530 









CS 


VERBSAVE ; 


04476 


4476 


5 


0, 0502 









TS 


REQRET ; 


04477 


4477 





1, 3565 


1 






TC 


BANKCALL ; 


04500 


4500 




14326 









DS 


UPDATVB-1 ; 


04501 


4501 





1, 3653 


1 






TC 


POST JUMP 


04502 


4502 




14002 





ENDALM 
BANKFF_ 


3 


DS 

EQU 

ORG 
INCL 


ENTER 

BANK41_6 ; 
bank41 6 . asm 



turn on check fail light 

get original verb that was executed 

set for ENTPASO 

puts original verb into VERBREG and 

displays it in verb lights 



COLOSSUS pp. 359-360 



DISPLAY ROUTINES ( file : bank 4 1_6 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 359-360. 



MMCHANG — MAJOR MODE CHANGE 

Uses noun display until ENTER; then it uses MODE display . It goes to 
MODROUT with the new MM code in A, but not displayed in MM lights. 
It demands 2 numeri cal characters be punched in for new MM code . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 359. 

















MMCHANG 


EQU 


* 


15356 


6, 


1356 





6 


7404 





: if 


this 


TC 
moves at all, 


REQMM 
must chang 
















; MMADREF 


at ENTPASHI 




15357 


6 


1357 


3 


1 


2074 









CAF 


BIT5 


15360 


6, 


1360 


6 





0466 









AD 


DSPCOUNT 


15361 


6 


13 61 


1 





0000 









CCS 


A 


153 62 


6 


13 62 





6 


7366 









TC 


* + 4 


15363 


6 


13 63 





6 


7365 









TC 


* + 2 


15364 


6 


1364 





6 


7366 









TC 


* + 2 


15365 


6, 


13 65 





6 


7367 


1 






TC 


* + 2 


15366 


6, 


1366 





2 


4474 


1 






TC 


ALMCYCLE 


15367 


6 


1367 


3 


1 


2050 









CAF 


ZERO 


15370 


6 


1370 


3 





0471 









XCH 


NOUNREG 


15371 


6, 


1371 


5 





0130 









TS 


MPAC 


15372 


6 


13 72 


3 


2 


4676 


1 






CAF 


ND1 


15373 


6, 


1373 


5 





0466 









TS 


DSPCOUNT 


15374 


6 


1374 





1 


3565 


1 






TC 


BANKCALL 


15375 


6, 


1375 




12540 









DS 


_2BLANK 


15376 


6 


1376 


4 


2 


4675 









CS 


VD1 


15377 


6, 


1377 


5 





0466 









TS 


DSPCOUNT 


15400 


6 


1400 


3 


1 


2050 









CAF 


ZERO 


15401 


6 


1401 


6 





0130 









AD 


MPAC 


15402 


6 


14 02 





1 


3653 


1 






TC 


POST JUMP 


15403 


6, 


1403 




10000 









DS 


MODROUTR 
















MODROUTR 


EQU 


V37 



ENTPASHI assumes the TC GRQMM at MMCHANG 



OCT 20 = ND2 
DSPCOUNT must = -ND2 

was BZF *+2 in Block II 

>0 

+ 

<0 

-0 

DSPCOUNT not -ND2 . Alarm and recycle . 



block num char in 



was CA MPAC in Block II 



go thru standard loc . 



REQMM 



15404 


6 


1404 


4 





0001 


1 


15405 


6 


1405 


5 





0502 





15406 


6 


1406 


3 


2 


4676 


1 


15407 


6 


1407 


5 





0466 





15410 


6 


1410 


3 


1 


2050 





15411 


6 


1411 


5 





0471 





15412 


6 


1412 





1 


3565 


1 


15413 


6 


1413 




12540 





15414 


6 


1414 





2 


4760 


1 


15415 


6 


1415 


3 


1 


2051 


1 


15416 


6 


1416 


5 





0467 


1 


15411 


6, 


1417 








0433 






EQU 


* 


cs 





TS 


REQRET 


CAF 


ND1 


TS 


DSPCOVNT 


CAF 


ZERO 


TS 


NOUNREG 


TC 


BANKCALL 


DS 


2BLANK 


TC 


FLASHON 


CAF 


ONE 


TS 


DECBRNCH 


TC 


ENTEXIT 



set for dec 



VBRQEXEC 



REQVEST EXECUTIVE 



Enters request to EXEC for any address with any priority . It does ENDOFJOB 

after entering request. Display syst is released. It assumes NOUN 26 has been 

preloaded with: 

COMPONENT 1 — priority (bits 10-14), bitl=0 for NOVAC , bitl=l for FINDVAC 

COMPONENT 2 — job CADR (14 bit; was 12 bit in Block II) 

COMPONENT 3 — not used (was BBCON in Block II) 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 360. 

















VBRQEXEC 


EQU 


* 


5420 


6 


1420 


3 


1 


2100 


1 




CAF 


BIT1 


5421 


6 


1421 


7 





0534 


1 




MASK 


DSPTEM1 


5422 


6 


1422 


1 





0000 







CCS 


A 


5423 


6 


1423 





6 


7444 


1 




TC 


SETVAC 


5424 


6, 


1424 


3 


2 


4667 


1 




CAF 


TCNOVAC 



if bit 1=1, FINDVAC 
if bit 1=0, NOVAC 



sets up to call NOVAC or FINDVAC thru MPAC as follows: 

MPAC = TC NOVAC 

MPAC+1 = job CADR 

MPAC+2 = TC ENDOFJOB 

MPAC+3 = temp store for job PRIO 



REQEX1 



15425 
15426 
15427 
15430 



15431 
15432 
15433 
15434 

15435 
15436 
15437 

15440 
15441 
15442 
15443 



15444 
15445 



. 1425 5 0, 0130 

. 1426 4 1, 2100 

. 1427 7 0, 0534 1 

. 1430 5 0, 0133 



REQUESTC 



.1431 2,5003 1 

.1432 3 1,2050 

.1433 6 2,4553 

. 1434 5 0, 0132 1 

.1435 3 1,2050 

. 1436 6 0, 0535 1 

. 1437 5 0, 0131 1 

.1440 3 1,2050 

. 1441 6 0, 0133 

. 1442 2 0, 0000 

. 1443 0, 0130 



6.1444 3 

6.1445 



2,4671 
6, 7425 



EQU 


* 


TS 


MPAC 


CS 


BIT1 


MASK 


DSPTEM1 


TS 


MPAC+3 


EQU 


* 


TC 


RELDSP 


CAF 


ZERO 


AD 


END INST 


TS 


MPAC+2 


CAF 


ZERO 


AD 


DSPTEM1+1 


TS 


MPAC+1 


CAF 


ZERO 


AD 


MPAC+3 


INHINT 




TC 


MPAC 


EQU 


* 


CAF 


TCFINDVAC 


TC 


REQEX1 



TC NOVAC or TC FINDVAC into MPAC 



PRIO into MPAC+3 as a temp (was +4) 



was CA ENDINST in Block II 

TC ENDOFJOB into MPAC+2 (was +3) 



set BBCON for Block II dropped 
job adres into MPAC+1 



was CA MPAC+4 in Block II 
PRIO in A 



VBRQWAIT 



REQUEST WAITLIST 



Enters request to WAITLIST for any address with any delay. It does ENDOFJOB 

after entering request. Display syst is released. It assumes NOUN 26 has been 

preloaded with: 

COMPONENT 1 — delay (low bits) 

COMPONENT 2 — task CADR (14 bit; was 12 bit in Block II) 

COMPONENT 3 — not used (was BBCON in Block II) 



Adapted from the AGC Block II COLOSSUS rev 24S 
Oct 28, 1968, p. 360. 



assembly listing , 









VBRQWAIT 


EQU 


* 


5446 


6, 1446 3 


2,4670 1 




CAF 


TCWAIT 


5447 


6, 1447 5 


0, 0130 




TS 


MPAC 



TC WAITLIST into MPAC 



15450 6,1450 3 1,2050 

15451 6,1451 6 0,0534 

15452 6,1452 6,7430 1 ENDRQWT 



CAF 

AD 

TC 



ZERO 

DSPTEM1 

REQVESTC-1 



was CA DSPTEM1 in Block II 
time delay 



REQVESTC will put task address in MPAC+1 , TC ENDOW JOB in MPAC+2 . 

It will take the time delay out of MPAC+3 and leave it in A, INHINT 

and TC MPAC . 



BANK41_7 



EQU 



ORG 
INCL 



BANK 4 0_ 7 
bank 4 0_ 7 . asm 



COLOSSOS pp. 360-362 



DISPLAY ROUTINES ( file : bank40_7 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 360-362. 



VBPROC 
VBTERM 



PROCEED HITHOUT DATA 
TERMINATE 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 360. 



13315 
13316 
13317 
13320 
13321 
13322 



13323 
13324 



5,1315 3 
5, 1316 5 
5,1317 

5.1320 

5.1321 

5.1322 



5.1323 4 

5.1324 



1,2051 1 
0, 0503 1 
2,4536 
2, 5003 1 
2,4770 
5, 7413 



1,2051 
5, 7316 1 



EQU 


* 


CAF 


ONE 


TS 


LOADSTAT 


TC 


KILMONON 


TC 


RELDSP 


TC 


FLASHOFF 


TC 


RECALTST 


EQU 


* 


CS 


ONE 


TC 


VBPROC+1 



proceed wi thout data 
turn on kill monitor bit 

see if there is any recall from endidle 
term verb sets loadstat neg 



VBRESEQ 

Wakes ENDIDLE at same line as final enter of load (L+3 ) . Main use is 
intended as response to internally initiated flashing displays in ENDIDLE . 
Should not be used wi th load verbs , please perform, or please mark verbs 
because they already use L+3 in another context . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 361. 



13325 5,1325 4 

13326 5, 1326 



VBRESEQ 


EQU 


* 


1,2050 1 


CS 


ZERO 


5, 7316 1 


TC 


VBPROC+1 



make it look like data in . 



flash is turned off by proceed wi thout data , terminate , 
resequence , end of load . 



VBRELDSP 

This routine always t urns off the UP ACT light and always clears 

DSPLOCK. 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 362. 



VBRELDSP 



some code here to t urn off the UP ACT light is omi tted 



13327 


5 


1327 


1 


0, 0412 


1 


CCS 


2122REG 


13330 


5 


1330 


3 


1, 2063 





CAF 


BIT14 


13331 


5 


1331 


7 


0, 0510 


1 


MASK 


MONSAVE1 


13332 


5 


1332 


1 


0, 0000 





CCS 


A 


13333 


5 


1333 





5, 7342 





TC 


UN SUSP EN 


13334 


5 


1334 





2, 5003 


1 TSTLTS4 


TC 


RELDSP 


13335 


5 


1335 


1 


0, 0531 


1 


CCS 


CADRSTOR 


13336 


5 


1336 





5, 7340 


1 


TC 


*+2 


13337 


5 


1337 





1, 2723 





TC 


ENDOFJOB 


13340 


5 


1340 





1, 3653 


1 


TC 


POST JUMP 


13341 


5 


1341 




05067 




UN SUSP EN 


CADR 
EQU 


PINBRNCH 

* 


13342 


5 


1342 


3 


1, 2050 





CAF 


ZERO 


13343 


5 


1343 


5 


0, 0501 





TS 


DSPLOCK 



; old DSPLOCK 

; external monitor bit (EMB) 

; old DSPLOCK and EMB both 1, unsuspend 

; not un suspending external moni tor , 

; release display system and 

; do reestablish if CADRSTOR is full 



external monitor is suspended 

just unsuspend i t by clearing DSPLOCK 



13344 5,1344 1 0,0531 1 CCS CADRSTOR ; turn key release light off if both 

13345 5,1345 1,2723 TC ENDOFJOB ; CADRSTOR and DSPLIST are empty 

13346 5,1346 2,5026 
13341 5,1341 1,2123 



: COLOSSUS pp. 363-364 





CCS 


CADRSTOR 




TC 


ENDOFJOB 




TC 


RELDSP1 




TC 


ENDOFJOB 


BANK 4 0_ 8 


EQV 


* 




ORG 


BANKFF 3 




INCL 


bankff 3 



DISPLAY ROUTINES ( file : bank ff_3 . asm) 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 363-364. 



COLOSSUS p . 364 — comments are taken from the Block I flow charts with some 
; additional annotations by me . 

NVSUB 
4503 5 0, 0565 1 TS NVSUB_A ; more gymnastics for Block II conversion 



EQV 


* 


TS 


NVSVB_A 


CAF 


ZERO 


TS 


NVSVB L 



04504 4504 3 1,2050 CAF ZERO ; was LXCH 7 in Block II 

04505 4505 5 0, 0564 TS NVSUB_L ; zero NVMONOPT options 

; save C (A) . C (A) should be holding the noun/verb code ; C (L) should 

; be holding NVMONOPT options . In this Block I version, the NVMONOPT 

; options should be placed in NVSUB_L before calling NVMONOPT . 



4506 3 


0, 0565 1 


XCH 


NVSUB_A 




NVMONOPT 


EQV 


* 


4501 5 


0, 0420 1 


TS 


NVTEMP 



CAF 


BIT14 


MASK 


M0NSAVE1 


AD 


DSPLOCK 


CCS 


A 


TC 


Q 



; Test DSPLOCK (+NZ=busy; +0=display system available) 

; Display is blocked by DSPL0CK=1 or external monitor bit set (bit 14) 

04510 4510 3 1,2063 

04511 4511 1 0,0510 1 MASK M0NSAVE1 ; external monitor bit 

04512 4512 6 0, 0501 

04513 4513 1 0, 0000 

04514 4514 0,0001 TC Q ; dsp syst blocked, ret to 1, calling loc 

; Store calling line +2 in NVQTEM 

04515 4515 3 1,2051 1 CAF ONE ; dsp syst available 

04516 4516 6 0,0001 NVSBCOM AD Q 

04511 4511 5 0,0526 TS NVQTEM ; 2+calling loc into NVQTEM 

; Force bit 15 of MONSAVE to 1, turn off bit 14. 

04520 4520 3 0, 0564 XCH NVSUB_L ; was LXCH M0NSAVE2 in Block II 

04521 4521 3 0,0511 1 XCH M0NSAVE2 ; store NVMONOPT options 

04522 4522 5 0, 0564 TS NVSVB_L ; replaces LXCH by working through A instead 

04523 4523 2,4536 TC KILMONON ; turn on kill monitor bit 

; Store calling bank in NVBNKTEM 

■ ** this was changed quite a bit from Block II ** 

NVSVBCOM 

04524 4524 3 1,2050 

04525 4525 6 0, 0015 

04526 4526 5 0,0521 1 

04521 4521 1,3624 1 TC MYBANKCALL ; go to NVSVB1 thru standard loc 

04530 4530 14000 1 

04531 4531 15505 NVSRRBNK CADR NVSUB1 ; ****** WHAT'S THIS FOR?? 

; Restore calling bank and TC NVQTEM 

■ ** this was changed quite a bit from Block II ** 

NVSVi 

04532 4532 3 1,2050 

04533 4533 6 0, 0521 1 

04534 4534 5 0, 0015 TS BANK ; restore calling bank 

04535 4535 0, 0526 



; COLOSSVS pp. 365-366 



EQV 


* 


CAF 


ZERO 


AD 


BANK 


TS 


NVBNKTEM 


TC 


MYBANKCALL 


CADR 


NVSVBR 


CADR 


NVSVB1 



NVSOBEND 


EQV 


* 




CAF 


ZERO 




AD 


NVBNKTEM 




TS 


BANK 




TC 


NVQTEM 


BANKFF_ 4 


EQV 


* 




ORG 


BANK 41 1 




INCL 


bank41 1 



DISPLAY ROUTINES ( f He :bank41_ 7 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 365-366. 



BLANKDSP blanks display according to option number in NVTEMP as follows : 
-4 full blank, -3 leave mode, -2 leave mode and verb, -1 blank R-S only 



BLANKDSP 



15453 
15454 
15455 
15456 
15457 
15460 



6, 1453 
6, 1454 
6, 1455 
6, 1456 
6, 1457 
6, 1460 



1, 2057 
0, 0000 

0, 0421 

1, 2065 
0, 0421 
0, 0512 



SEVEN 



EQU 

AD 

INHINT 

TS CODE 

CS BIT12 

INDEX CODE 

XCH DSPTAB 



; 1,8, 9, or 10 (A had 0,1, 2, or 3) 
; blank specified DSPTABS 



15461 6,1461 1 
154 62 6,14 62 
15463 6,1463 



0, 0000 CCS 

6, 1501 1 TC 

6, 1464 INCR_NOUT_RET TC 



INCR_NOUT 
* + l 



was INCR NOUT in Block II 



15464 
15465 
15466 
15461 
15410 
15411 
15412 
15413 
15414 



6,1464 1 



6,14 65 

5, 1466 

6, 1461 
6, 1410 
6, 1411 
6,1412 
6, 1413 
5, 1474 



0, 0421 
6, 7455 
0, 0000 
0, 0420 
6, 1415 
6, 1412 
0, 0410 
0, 0411 
0, 0504 



CCS 
TC 

RELINT 
INDEX 

TC 
TC 
TS 
TS 
TS 



CODE 
BLANKDSP+2 

NVTEMP 

* + 5 

* + l 

VERBREG 
NOUNREG 
CLPASS 



NVTEMP has -4 (never touch MODREG) 
-3 
-2 

-1 



15415 
15476 



6,1415 4 2,4615 
6, 1416 5 0, 0466 



CS 
TS 



VD1 
DSPCOUNT 



15411 
15500 



6,1411 2,4110 
6, 1500 6, 1540 1 



TC 
TC 



FLASHOFF 
ENTSET-2 



protect against invisible flash 
zeroes REQRET 



INCR_NOUT 



15501 
15502 
15503 
15504 



.1501 3 

.1502 6 

.1503 5 

.1504 



0, 0505 1 

1,2051 1 

0, 0505 1 

6, 1463 1 



EQU 
XCH 

AD 
TS 
TC 



NOUT 

ONE 

NOUT 

INCR_NOUT_RET 



was INCR NOUT in Block II 

have to make it a separate routine 

because it was nested inside 

a CCS. 



15505 
15506 



.1505 3 
. 1506 5 



6, 1542 
0, 0433 



EQU 

CAF 
TS 



ENTSET 
ENTRET 



in bank 

set return to NVSUBEND 



15501 
15510 
15511 
15512 
15513 



. 1501 1 

.1510 

.1511 

.1512 

.1513 



0, 0420 

6, 1514 

6, 6341 1 

6, 1453 1 

6, 6341 1 



CCS 

TC 

TC 

TC 

TC 



NVTEMP 
* + 4 

GODSPALM 
BLANKDSP 
GODSPALM 



what now 

normal NVSUB call (execute VN or paste) 



blank display as specified 



15514 
15515 
15516 

15511 
15520 



.1514 3 

.1515 1 

. 1516 5 

. 1511 3 

.1520 6 



1,2101 

0, 0420 

0, 0133 

1,2050 

0, 0420 1 



CAF LOW1 

MASK NVTEMP 

TS MPAC+3 

uses MPAC, +1 , 

CAF ZERO 

AD NVTEMP 



temp for noun (can't use MPAC, DSPDECVN 
was CA NVTEMP 



15521 
15522 
15523 
15524 
15525 
15526 
15521 
15530 
15531 
15532 



15533 
15534 



. 1521 

. 1522 

. 1523 

. 1524 

. 1525 

. 1526 

. 1521 

. 1530 

. 1531 

. 1532 



0, 0020 
0, 0020 
0, 0020 
0, 0020 
0, 0020 
0, 0020 
0, 0020 
0, 0020 
1, 2101 
0, 0134 



6, 1533 1 0, 0133 1 
6, 1534 6, 1543 1 



15535 6,1535 3 1,2050 

15536 6,1536 6 0,0134 1 
15531 6,1531 6,6326 

15540 6,1540 3 1,2050 

15541 6,1541 5 0,0502 

15542 6,1542 2,4532 1 ENTSET 



TS 


CYR 


CS 


CYR 


CS 


CYR 


CS 


CYR 


CS 


CYR 


CS 


CYR 


CS 


CYR 


XCH 


CYR 


MASK 


LOW1 


TS 


MPAC+4 


uses 


MPAC, +1, 


CCS 


MPAC+3 


TC 


NVSUB2 


CAF 


ZERO 


AD 


MPAC+4 


TC 


UPDATVB- 


CAF 


ZERO 


TS 


REQRET 


TC 


NVSUBEND 



shift right 7, was TS EDOP, CA EDOP in BII 



temp for verb (can't use MPAC, DSPDECVN 



test noun (+NZ or +0) 
if noun not +0 , DC on 



was CA MPAC+4 in Block II 

if noun = +0 , display verb then return 



zero REQRET so that pasted verbs can 
be executed by operator 



15543 
15544 



6,1543 1 0,0134 NVSVB2 
6, 1544 6, 7551 1 



15545 6,1545 3 1,2050 

15546 6,1546 6 0,0133 

15547 6,1547 6,6306 1 
15550 6,1550 2,4532 1 



15551 


6 


1551 


3 


1 


2050 





15552 


6 


1552 


6 





0132 


1 


15553 


6, 


1553 


5 





0135 





15554 


6 


1554 


3 


1 


2050 





15555 


6 


1555 


6 





0134 


1 


15556 


6, 


1556 





6 


632 6 





15557 


6 


1557 


3 


1 


2050 





15560 


6 


1560 


6 





0133 





15561 


6, 


15 61 





6 


63 6 


1 


155 62 


6 


15 62 


3 


1 


2050 





15563 


6 


15 63 


5 





0503 


1 


15564 


6 


1564 


5 





0504 





15565 


6, 


15 65 


5 





0502 





15566 


6 


1566 


3 


1 


2050 





15567 


6 


1567 


6 





0135 





15570 


6 


1570 


5 





0132 


1 



15571 6,1571 6,6040 ENDNVSB1 



CCS 


MPAC+4 


TC 


* + 5 


CAF 


ZERO 


AD 


MPAC+3 


TC 


UPDATNN-1 


TC 


NVSVBEND 


CAF 


ZERO 


AD 


MPAC+2 


TS 


MPAC+5 


CAF 


ZERO 


AD 


MPAC+4 


TC 


UPDATVB-1 


CAF 


ZERO 


AD 


MPAC+3 


TC 


UPDATNN-1 


CAF 


ZERO 


TS 


LOADSTAT 


TS 


CLPASS 


TS 


REQRET 


CAF 


ZERO 


AD 


MPAC+5 


TS 


MPAC+2 


TC 


SNTP AS 



; test verb (+NZ or + 0) 

; if verb not + , go on 

; was CA MPAC+3 in Block II 

; if verb = + , display noun , then ret urn 

; was CA MPAC+2 in Block II 

; temp for mach CADR to be spec, (DSPDECVN 

; uses MPAC, +1, +2 

; was CA MPAC+4 in Block II 

; if both noun and verb not + , display 

; was CA MPAC+3 in Block II 

; both and go to ENTPASO 



set for waiting for data condi tion 

set request for pass 

was CA MPAC+5 in Block II 

restores mach CADR to be spec to MPAC+2 

for use in INTMCTBS (in ENTPASO} 



if internal mach CADR to be specified, 
NOUNCADR in ENTPASO (INTMCTBS) 



MPAC+2 will be placed into 



BANK41_ 


_B 


EQU 


* 






ORG 


BANKFF 4 






INCL 


bankff 4 



COLOSSVS pp. 366-368 



DISPLAY ROUTINES (file -.bankff _4 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 366-368. 



04536 
04537 
04540 



4536 3 1,2062 

4537 5 0, 0510 
4540 0, 0001 



KILMONON 


EQU 


* 


1 


CAF 


BIT15 





TS 


M0NSAVE1 





TC 


Q 



force bit 15 of M0NSAVE1 to 1. 
this is the kill monitor bit . 
turn off bit 14 , the external 
moni tor bit . 















; COLOSSUS p 


. 367 
















END IDLE 


EQU 


» 


04541 


4541 


3 





0001 







XCH 


2 


04542 


4542 


5 





0566 


1 




TS 


ENDIDLE_L ; 


04543 


4543 





2 


4554 


1 




TC 


ISCADR_PO ; 


04544 


4544 





2 


4560 







TC 


ISLIST_PO ; 


04545 


4545 


3 


1 


2050 







CAF 


ZERO ; 


04546 


4546 


6 





0566 


1 




AD 


ENDIDLE_L ; 


04547 


4547 


7 


2 


4674 


1 




MASK 


LOW10 ; 


04550 


4550 


6 





0015 







AD 


BANK ; 


04551 


4551 


5 





0531 







TS 


CADRSTOR 


04552 


4552 





1 


2725 







TC 


JOBSLEEP 


04553 


4553 





1 


2723 





END IMS T 
ISCADR_PO 


TC 
EQU 


ENDOFJOB 

* 


04554 


4554 


1 





0531 


1 




CCS 


CADRSTOR ; 


04555 


4555 





2 


4563 







TC 


DSP ABORT ; 


04556 


4556 








0001 







TC 


Q 


04557 


4557 





2 


4563 





ISLIST_PO 


TC 
EQU 


DSP ABORT 

* 


04560 


4560 


1 





0532 


1 




CCS 


DSPLIST ; 


04561 


4561 





2 


4563 







TC 


DSP ABORT ; 


04562 


4562 








0001 







TC 


Q 


04563 


4563 





2 


5050 


1 


DSP ABORT 


TC 


POODOO 


04564 


4564 




01206 


1 




DS 


%1206 



was LXCH Q in Block II 
return address into L 

abort if CADRSTOR not= +0 
abort if DSPLIST not= +0 

was CA L in Block II 

don't set DSPLOCK to 1 so can use 
ENDIDLE with NVSUB initiated monitor, 
same strategy for CADR as MAKECADR 



aborts (code 12 6 if CADRSTOR not= 
returns if CADRSTOR = +0 



aborts (code 1206 if DSPLIST not= +0 
returns if DSPLIST = +0 



BLANKSUB blanks any combination of Rl, R2 , R3 . Call with blanking code in A. 
BIT 1=1 blanks Rl , BIT 2=1 blanks R2 , BIT 3=1 blanks R3 . Any combination of these 
three bits is accepted . 

DSPCOUNT is restored to the state it was in before BLANKSUB was executed . 













BLANKSUB EQU 


* 


04565 


4565 


7 


1 


2057 





MASK 


SEVEN 


04566 


4566 


5 





0420 


1 


TS 


NVTEMP 


04567 


4567 


3 


1 


2063 





CAF 


BIT14 


04570 


4570 


7 





0510 


1 


MASK 


M0NSAVE1 


04571 


4571 


6 





0501 





AD 


DSPLOCK 


04572 


4572 


1 





0000 





CCS 


A 


04573 


4573 








0001 





TC 


Q 


04574 


4574 


3 





0001 





XCH 


Q 


04575 


4575 


6 


1 


2051 


1 


AD 


ONE 


04576 


4576 


5 





0561 





TS 


BLANKSUB_Q 


04577 


4577 


1 





0420 





CCS 


NVTEMP 


04600 


4600 





2 


4602 


1 


TC 


* + 2 


04601 


4601 








0561 





TC 


BLANKSUB_Q 



store blanking code in NVTEMP 
external monitor bit 



dsp syst blocked . Return to 1 +calling loc 

was INCR Q in Block II 

set return for 2+calling location 

was TC Q in Block II 



was TCF in Block II 

nothing to blank , Return to 2+calling loc 



the return address+2 is now in BLANKSUB_Q . We need to call BLNKSUB1 in 
in "bank 40" , so we ' 11 have to save the bank register so that we can 
return to the address in BLANKSUB_Q . The block II code had a bunch of 
tri cky st uff involving the both bank bits and superbi t . Block I doesn ' t 
need to worry about that , so we can substit ute this simplified code . 
As in the Block II code , the return bank gets saved to BUF and the return 
address+2 gets saved to BUF+1 . 



04602 


4 602 


3 


1, 2050 





CAF 


ZERO 


04603 


4603 


6 


0, 0561 





AD 


BLANKSUB_Q 


04604 


4604 


3 


0, 0426 


1 


XCH 


BVF+1 


04605 


4605 


3 


1, 2050 





CAF 


ZERO 


04606 


4606 


6 


0, 0015 





AD 


BANK 


04607 


4607 


3 


0, 0425 


1 


XCH 


BVF 


04610 


4 610 


3 


2, 4612 





CAF 


BSUB1ADDR 


04611 


4 611 





1, 3526 





TC 


DXCHJVMP 


04612 


4612 




13350 


BSUB1ADDR 


CADR 


BLNKSVB1 



set return for 2+calling loc 



save return bank 



; bank jump to BLNKSUB1 rtne 



this is my attempt to implement the return from BLNKSUB1 . In BII, it executes 
as part of the BLNKSUB1 routine : 

DXCH BUF 

TC SUPDXCHZ+1 
to jump from the BLNKSUB1 bank to the calling bank. 



BS_SUPDXCHZ EQU * 

04613 4613 3 0,0425 1 XCH BUF 

04614 4614 3 0,0015 XCH BANK 

04615 4615 0,0426 1 TC BUF + 1 

BANKFF_5 EQU * 



/ restore the calling bank bits 

; return to calling loc+2 (set in BLANKSUB) 



ORG 
INCL 



BANK04_2 
bank04_2 . asm 



COLOSSUS pp. 369 



DISPLAY MODREG (file: bank04_2 . asm) 



DSPMM does not display MODREG directly . It puts EXEC request with 
prio=CHARPRIO for DSPMMJB and returns to caller. 



If MODREG contains 



DSPMMJB blanks the MODE lights. 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 369. 















DSPMM 


0047 


4 


0047 


3 


0, 0001 







0050 


4 


0050 


5 


0, 0130 







0051 


4 


0051 


2 


0, 0000 







0052 


4 


0052 


3 


2, 4131 







0053 


4 


0053 





1,3162 


1 




0054 


4 


0054 




13400 


1 




0055 


4 


0055 


2 


0, 0000 


1 




0056 


4 


0056 





0, 0130 





ENDSPMM 



EQU 


* 


XCH 


Q 


TS 


MPAC 


INHINT 




CAF 


CHRPRIO 


TC 


NOV AC 


CADR 


DSPMMJB 


RELINT 




TC 


MPAC 



BANK04_3 



EQU 



ORG 
INCL 



BANK 4 0_ 8 
bank 4 8 .asm 



COLOSSUS pp. 369-371 



DISPLAY ROUTINES ( file : bank40_8 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 369-311. 



13350 5,1350 3 1,2050 

13351 5,1351 6 0,0466 

13352 5,1352 5 0,0427 

13353 5,1353 3 1,2100 1 

13354 5,1354 5,7373 1 

13355 5,1355 3 2,4635 

13356 5,1356 5,6472 

13357 5,1357 3 1,2077 

13360 5,1360 5,7373 1 

13361 5,1361 3 2,4636 

13362 5,1362 5,6472 

13363 5,1363 3 1,2076 1 

13364 5,1364 5,7373 1 

13365 5,1365 3 2,4637 1 

13366 5,1366 5,6472 

13367 5,1367 3 1,2050 

13370 5,1370 6 0,0427 

13371 5,1371 5 0,0466 



BLNKSUB1 


EQU 


* 




CAF 


ZERO 




AD 


DSPCOUNT 




TS 


BUF+2 




CAF 


BIT1 




TC 


TESTBIT 




CAF 


R1D1 




TC 


_5BLANK-1 




CAF 


BIT2 




TC 


TESTBIT 




CAF 


R2D1 




TC 


_5BLANK-1 




CAF 


BIT3 




TC 


TESTBIT 




CAF 


R3D1 




TC 


_5BLANK-1 




CAF 


ZERO 




AD 


BUF+2 




TS 


DSPCOUNT 



was CA DSPCOUNT in Block II 

save old DSPCOUNT for later restoration 



test bit 1. See if Rl to be blanked. 



test bit 2. See if R2 to be blanked . 



test bit 3. See if R3 to be blanked . 



was CA BUF+2 in Block II 
restore DSPCOUNT to state it had 
before BLANKSUB 



13372 5,1372 2,4613 1 



BS_SUPDXCHZ 



was DXCH BUF, TC SUPDXCHZ+1 in BII 















TESTBIT 


13373 


5 


1373 


7 





0420 





13374 


5 


1374 


1 





0000 





13375 


5 


1375 








0001 





13376 


5 


1376 


2 





0001 


1 


13377 


5 


1377 





0, 


0002 




DSPMMJB 


13400 


5 


1400 


3 


2 


4677 





13401 


5 


1401 


3 





0466 





13402 


5 


14 02 


5 





0435 





13403 


5 


1403 


1 





0500 





13404 


5 


1404 


6 


1 


2051 


1 


13405 


5 


1405 





5 


7144 


1 


13406 


5 


1406 





5 


7410 





13407 


5 


1407 





5 


6540 





13410 


5 


1410 


3 





0435 





13411 


5 


1411 


5 





0466 





13412 


5 


1412 





1, 


2723 






EQU 


* 


MASK 


NVTEMP 


CCS 


A 


TC 


Q 


INDEX 


Q 


TC 


2 


EQU 


* 


CAF 


MD1 


XCH 


DSPCOUNT 


TS 


DSPMMTEM 


CCS 


MODREG 


AD 


ONE 


TC 


DSPDECVN 


TC 


*+2 


TC 


2BLANK 


XCH 


DSPMMTEM 


TS 


DSPCOUNT 


TC 


ENDOFJOB 



NVTEMP contains blanking code 



if current bit = 1, return to L+l 
if current bit = 0, return to L+3 



gets here thru DSPMM 
save DSPCOUNT 



if MODREG is + or +0, display MODREG 
if MODREG is -NZ, do nothing 
if MODREG is -0, blank MM 
restore DSPCOUNT 



RECALTST 

Entered directly after data is loaded (or resequence verb is executed) , 

terminate verb is executed, or proceed without data verb is executed . 

It wakes up job that did TC ENDIDLE. 

If CADRSTOR not = +0, it puts +0 into DSPLOCK, and turns off KEY RLSE 

light if DSPLIST is empty (leaves KEY RLSE light alone if not empty) . 



Adapted from the AGC Block II COLOSSUS rev 24$ 
Oct 28, 1968, p. 370. 



assembly listing , 



13413 5,1413 1 0,0531 1 

13414 5,1414 5,7416 

13415 5,1415 1,2723 



13416 
13417 
13420 
13421 
13422 
13423 
13424 
13425 
13426 



5, 1416 
5, 1417 
5, 1420 
5, 1421 
5, 1422 
5, 1423 
5, 1424 
5, 1425 
5, 1426 



1, 2050 
0, 0531 
0, 0000 
1, 3003 

0, 0503 
5, 7450 

1, 2723 
5, 7446 
1, 2052 



13427 5,1427 2 0,0300 

13430 5,1430 6 0,0140 1 

13431 5,1431 2 0,0300 

13432 5,1432 5 0,0140 1 



RECALTST 


EQU 


* 




CCS 


CADRSTOR 




TC 


RECAL1 




TC 


ENDOFJOB 


RECAL1 


EQU 


* 




CAF 


ZERO 




XCH 


CADRSTOR 




INHINT 






TC 


JOB WAKE 




CCS 


LOADSTAT 




TC 


DOPROC 




TC 


ENDOFJOB 




TC 


DOTERM 




CAF 


TWO 


RECAL2 


EQU 


* 




INDEX 


LOCCTR 




AD 


LOC 




INDEX 


LOCCTR 




TS 


LOC 



normal exit if keyboard initiated . 



+ proceed wi thout data 
pathological case exit 
— terminate 
-0 , data in or resequence 



loc is + for basic jobs 



13433 5,1433 3 1,2050 

13434 5,1434 6 0,0411 

13435 5,1435 2 0,0300 

13436 5,1436 5 0,0131 1 



CAF ZERO 

AD NOUNREG 

INDEX LOCCTR 

TS MPAC+1 



save verb in MPAC, noun in MPAC+1 at 
time of response to ENDIDLE for 
possible later testing by job that has 
been waked up 



13437 5,1437 3 1,2050 

13440 5,1440 6 0,0470 1 

13441 5,1441 2 0,0300 

13442 5,1442 5 0,0130 



CAF ZERO 

AD VERBREG 

INDEX LOCCTR 

TS MPAC 



13443 5,1443 2 0,0000 1 



13444 5,1444 2,5003 1 

13445 5,1445 1,2723 



13446 5,1446 3 1,2050 

13447 5,1447 5,7427 1 



13450 5,1450 3 1,2051 1 

13451 5,1451 5,7427 1 





RELINT 




RECAL3 


EQV 


* 




TC 


RELDSP 




TC 


ENDOFJOB 


DOTERM 


EQV 


* 




CAF 


ZERO 




TC 


RECAL2 


DOPROC 


EQV 


* 




CAF 


ONE 




TC 


RECAL2 


BANK 4 0_ 8 a 


EQV 


* 




ORG 


BANKFF 5 




INCL 


bankff 5 . asm 



; COLOSSUS pp. 372-376 



DISPLAY ROUTINES ( file : bank ff_5 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 372-376. 



MISCELLANEOUS SERVICE ROUTINES IN FIXED-FIXED 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 372. 



SETNCADR 

Store the eraseable 

(changed from Block 

SETNADD 

Get the eraseable mt 

(changed from Block 

SETEBANK 

E CADR arrives in A. 
(changed from Block 



memory address from A into NOUNCADR and NOUNADD . 

II , because there is no bank addressing for block I) 



mory address from NOUNCADR and store it into NOUNADD. 
II , because there is no bank addressing for block I) 



E ADRES is "derived" and left in A. 
II , because there is no bank addressing for block I) 















SETNCADR 


EQV 


* 


04616 


4 616 


3 


0, 


0001 







XCH 


Q 


04617 


4 617 


5 





0555 


1 




TS 


SETNCADR_Q 


04620 


4 62 


3 


0, 


0001 







XCH 


Q 


04621 


4 621 


5 


0, 


0506 


1 




TS 


NOUNCADR 


04622 


4 622 


7 


2 


4674 


1 




MASK 


LOW10 


04623 


4 623 


5 


0, 


0442 







TS 


NOUNADD 


04624 


4 62 4 





0, 


0555 


1 


SETNADD 


TC 
EQV 


SETNCADR_Q 


04625 


4 625 


3 


0, 


0001 







XCH 


Q 


0462 6 


4 62 6 


5 





0555 


1 




TS 


SETNCADR_Q 


04 627 


4 627 


3 


0, 


0001 







XCH 


Q 


04630 


4630 


3 


1 


2050 







CAF 


ZERO 


04631 


4631 


6 





0506 


1 




AD 


NOUNCADR 


04632 


4 632 





2, 


4 622 





SETEBANK 


TC 
EQV 


SETNCADR+4 

* 


04633 


4633 


7 


2 


4674 


1 




MASK 


LOH10 


04634 


4634 





0, 


0001 







TC 


Q 



; save ret urn address 
; restore A 



store ECADR 



put E ADRES into NOUNADD 



; save ret urn address 
; restore A 



; get NOUNCADR 



04635 


4 635 


04636 


4 63 6 


04637 


4 637 


04640 


4 64 


04641 


4641 


04642 


4 642 



00016 R1D1 
00011 1 R2D1 
00004 R3D1 



5 0, 0020 
4 0, 0020 1 
4 0, 0020 1 



DS 


%16 


DS 


ill 


DS 


»4 


EQV 


* 


TS 


CYR 


CS 


CYR 


CS 


CYR 



; these 3 constants form a packed table 
; don ' t separate 
; must stay here 



04643 


4643 


4 


0, 0020 


1 




04644 


4 64 4 


4 


0, 0020 


1 




04645 


4645 


3 


0, 0020 







04646 


4 64 6 





0, 0001 





LEFT5 


04641 


4 641 


5 


0, 0022 


1 




04650 


4650 


4 


0, 0022 







04651 


4 651 


4 


0, 0022 







04652 


4 652 


4 


0, 0022 







04653 


4 653 


4 


0, 0022 







04654 


4654 


3 


0, 0022 


1 




04655 


4 655 





0, 0001 





S LEFT 5 


04656 


4 65 6 


6 


0, 0000 


1 




04651 


4 651 


6 


0, 0000 


1 




04660 


4660 


6 


0, 0000 


1 




04661 


4 661 


6 


0, 0000 


1 




04662 


4 662 


6 


0, 0000 


1 




04663 


4 663 





0, 0001 







04664 


4664 




00031 





L0W5 


04665 


4 665 




01140 





MID 5 


04666 


4666 




16000 





HI5 


04661 


4661 





1,3162 


1 


TCNOVAC 


04610 


4610 





1, 2232 





TCWAIT 

; TCTSKOVR 


04611 


4611 





1,3161 


1 


TCFINDVAC 
; CHRPRIO 


04612 


4612 




03111 





L0H11 
B12M1 


04613 


4613 




00311 


1 


L0H8 


04614 


4614 




01111 


1 


LOW10 


04615 


4615 




00023 





VD1 


04616 


4616 




00021 


1 


ND1 


04611 


4611 




00025 





MD1 


04100 


4100 




00012 


1 


BINCON 



CS 


CYR 


cs 


CYR 


XCH 


CYR 


TC 


Q 


EQV 


* 


TS 


CYL 


CS 


CYL 


CS 


CYL 


CS 


CYL 


CS 


CYL 


XCH 


CYL 


TC 


Q 


EQV 


* 


DOVBLE 




DOVBLE 




DOVBLE 




DOVBLE 




DOVBLE 




TC 


e 


DS 


%00031 


DS 


%01140 


DS 


%16000 


TC 


NOV AC 


TC 


WAITLIST 


TC 


TASKOVER 


TC 


FIND VAC 


DS 


%30000 


DS 


%3111 


EQV 


L0W11 


DS 


%311 


DS 


%01111 


DS 


%23 


DS 


%21 


DS 


%25 



these 3 constants form a packed table 
don't separate 
must stay here 



EXEC priority of CHARIN 



these 3 constants form a packed table 
don't separate 
must stay here 



**************** TVRN ON/OFF OPERATOR ERROR LIGHT ******* p. 313 



04101 4101 4 0,0011 

04102 4102 1 2,4112 

04103 4103 4 0, 0000 

04104 4104 5 0, 0011 1 

04105 4105 0, 0001 



04106 4106 4 1,2012 1 

04101 4101 7 0,0011 

04110 4110 5 0, 0011 1 

04111 4111 0,0001 



DSALMOVT 


EQV 


0VT1 


F ALTON 


EQV 


* 




CS 


DSALMOVT 




MASK 


FALTOR 




COM 






TS 


DSALMOVT 




TC 


Q 


FALTOF 


EQV 


* 




CS 


BIT1 




MASK 


DSALMOVT 




TS 


DSALMOVT 




TC 


Q 



channel 11 in Block II is 0VT1 in Block I 



; inclusive OR bit 1 with 1 using 
; Demorgan 's theorem 



was bit 1 of channel 11 in Block II 



was bit 1 of channel 11 in Block II 



04112 



4112 



11611 1 FALTOR 



1 's compliment of bit 1 



**************** TVRN ON KEY RELEASE LIGHT ******* p. 313 



04113 4113 4 0, 0011 

04114 4114 1 2,4120 1 

04115 4115 4 0, 0000 

04116 4116 5 0, 0011 1 
04111 4111 0, 0001 



RELDSPON 


EQV 


* 




CS 


DSALMOVT 




MASK 


RELDSPOR 




COM 






TS 


DSALMOVT 




TC 


Q 



; inclusive OR bit 5 with 1 using 
; Demorgan 's theorem 



was bit 5 of channel 11 in Block II 



04120 



4120 



11151 1 RELDSPOR 



; 1 ' s compliment of bit 5 



TPSL1 

Shift triple word MPAC , MPAC+1 , MPAC+2 left 1 bit 



04121 4121 3 1,2050 

04122 4122 6 0, 0132 1 

04123 4123 6 0, 0132 1 

04124 4124 5 0, 0132 1 

04125 4125 3 1,2050 

04126 4126 6 0, 0131 1 
04121 4121 6 0, 0131 1 



EQV 


* 


CAF 


ZERO 


AD 


MPAC+2 


AD 


MPAC+2 


TS 


MPAC+2 


CAF 


ZERO 


AD 


MPAC+1 


AD 


MPAC+1 



; skip on overflow 

; otherwise , make interword carry=0 



04730 4730 5 0, 0131 1 

04731 4731 3 1,2050 

04732 4732 6 0, 0130 

04733 4733 6 0, 0130 

04734 4734 5 0, 0130 

04735 4735 0, 0001 

04736 4736 5 0, 0136 

04737 4737 0, 0001 



TS 


MPAC+1 


CAF 


ZERO 


AD 


MPAC 


AD 


MPAC 


TS 


MPAC 


TC 


Q 


TS 


MPAC+ 6 


TC 


Q 



skip on overflow 

otherwise , make interword carry=0 

skip on overflow 

no net OV/UF 

MPAC+6 set to +/- 1 for OV/UF 



PRSHRTMP 

if MPAC, +1 are each +NZ or +0 and C(A)=-0, SHORTMP wrongly gives +0 . 

if MPAC, +1 are each -NZ or -0 and C(A)= + 0, SHORTMP wrongly gives +0 . 

PRSHRTMP fixes first case only, by merely testing C (A) and if it = -0, 

setting resul t to —0. 

(Do not use PRSHRTMP unless MPAC, +1 are each +NZ or +0, as they are 

when they contain the SF constants ) . 













PRSHRTMP 


EQO 


* 




04740 


4740 


5 





0432 


1 


TS 


MP TEMP 




04741 


4741 


3 





0001 





XCH 


Q 




04742 


4 742 


5 





0600 


1 


TS 


PRSHRTMP_ 


Q 


04743 


4743 


1 





0432 





CCS 


MP TEMP 




04744 


4744 





2 


4 75 4 





TC 


DOSHRTMP 




04745 


4745 





2 


475 4 





TC 


DOSHRTMP 




04746 


4746 





2 


475 4 





TC 


DOSHRTMP 




04747 


4 74 7 


4 


1 


2050 


1 


CS 


ZERO 




04750 


4750 


5 





0130 





TS 


MPAC 




04751 


4 751 


5 





0131 


1 


TS 


MPAC+1 




04 752 


4 752 


5 





0132 


1 


TS 


MPAC+2 




04753 


4 753 








0600 


1 

DOSHRTMP 


TC 
EQV 


PRSHRTMP_ 


Q 


04754 


4754 


3 


1 


2050 





CAF 


ZERO 




04755 


4 755 


6 





0432 


1 


AD 


MP TEMP 




04756 


4756 





2 


4353 





TC 


SHORTMP 




04757 


4757 








0600 


1 


TC 


PRSHRTMP_ 


Q 



C(A) +, do regular SHORTMP 

C(A) +0, do regular SHORTMP 

C(A) -, do regular SHORTMP 

C (A) —0, force resul t to —0 and return 



**************** TURN ON/OFF V/N FLASH ******* p. 374 
this is handled by setting a bit in channel 11 in Block II . 
In Block I , it has to be set through the display table , so I 
borrowed this method from SGNCOM (the DSKY +/- sign routine) 
Uses MYBANKCALL because BANKCALL is not reentrant and I dont 
understand its usage in COLOSSUS well enough to be certain 
that FLASHON/FLASHOFF isn't being called somewhere through 
BANKCALL , 













FLASHON 


EQO 


* 


04760 


4760 


3 


0, 0001 







XCH 


Q 


04761 


4 761 


5 


0, 0570 







TS 


FLASHRET 


04 762 


4 762 


3 


1, 2066 







CAF 


BIT11 


04763 


4 763 


5 


0, 0421 







TS 


CODE 


04764 


4764 


3 


2, 5000 


1 




CAF 


FLSHTAB 


04765 


4 765 





1,362 4 


1 




TC 


MYBANKCALL 


04766 


4766 




13253 


1 




CADR 


_11DSPIN 


04767 


4767 





0, 0570 





FLASHOFF 


TC 
EQV 


FLASHRET 

* 


04770 


4770 


3 


0, 0001 







XCH 


Q 


04771 


4771 


5 


0, 0570 







TS 


FLASHRET 


04772 


4 772 


3 


1, 2050 







CAF 


ZERO 


04773 


4773 


5 


0, 0421 







TS 


CODE 


04774 


4774 


3 


2, 5000 


1 




CAF 


FLSHTAB 


04775 


4775 





1,362 4 


1 




TC 


MYBANKCALL 


04776 


4776 




13253 


1 




CADR 


_11DSPIN 


04777 


4777 





0, 0570 







TC 


FLASHRET 


05000 


5000 




00011 


1 


FLSHTAB 


DS 


m 



V/N flash 



05001 
05002 



NVSVBVSY 



5001 1,3653 1 

5002 13452 



EQV 

TC 

CADR 



POST JUMP 
NVSVBSY1 



BANKFF_5a 


EQU 


* 




ORG 


BANK4 8 a 




INCL 


bank4 8a . as 



COLOSSUS pp. 376 



DISPLAY ROUTINES ( file :bank40_8a . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 316. 



MISCELLANEOUS SERVICE ROUTINES IW FIXED-FIXED 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 376. 

















NVSUBSY1 


EQU 


* 


3452 


5 


14 52 


5 





0567 









TS 


NBSUBSY1 L 


3453 


5 


1453 





2 


4554 


1 






TC 


ISCADR PO 


3454 


5 


1454 





2 


4560 









TC 


ISLIST PO 


3455 


5 


1455 





2 


4713 









TC 


RELDSPON 


3456 


5 


1456 


3 


1 


2050 









CAF 


ZERO 


3451 


5 


1457 


6 





0567 









AD 


NBSUBSY1 L 


3460 


5 


1460 


5 





0532 









TS 


DSPLIST 


3461 


5 


14 61 





1 


2725 





ENDNVBSY 


TC 


JOBSLEEP 
















BANK4 0_ 


_9 


EQU 

ORG 
INCL 


* 

BANKFF_5a 
bankff 5a . as 



save CADR 

abort if CADRSTOR not = +0 

abort if DSPLIST not = +0 

was CA L in Block II 



COLOSSUS pp. 376-378 



DISPLAY ROUTINES ( file : bank ff_5a . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 376-378. 



MISCELLANEOUS SERVICE ROUTINES IW FIXED-FIXED 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 376. 



RELDSP 

used by VBPROC, VBTERM, VBRQEXEC , VBRQWAIT, VBRELDSP, EXTENDED VERB 

DISPATCHER, VBRESEQ, and RECALTST . 

RELDSP1 

used by monitor set up, VBRELDSP 















RELDSP 


05003 


5003 


3 





0001 







05004 


5004 


5 





0441 







05005 


5005 


4 


1 


2063 


1 




05006 


5006 


2 





0000 







05007 


5007 


7 





0510 


1 




05010 


5010 


5 





0510 







05011 


5011 


1 





0532 


1 




05012 


5012 





2 


5014 


1 




05013 


5013 





2 


5017 


1 




05014 


5014 


3 


1 


2050 







05015 


5015 


3 





0532 







05016 


5016 





1 


3003 


1 


RELDSP2 


05017 


5017 


2 





0000 


1 




05020 


5020 


4 


1 


2074 


1 




05021 


5021 


7 





0011 







05022 


5022 


5 





0011 


1 




05023 


5023 


3 


1 


2050 







05024 


5024 


5 





0501 







05025 


5025 








0441 





RELDSP1 


05026 


5026 


3 





0001 







05027 


5027 


5 





0441 





; empty 
; DSPLI 


05030 


5030 


1 





0532 


1 




05031 


5031 





2 


5033 


1 




05032 


5032 





2 


5017 


1 




05033 


5033 


3 


1 


2050 








EQU 


* 


XCH 


Q 


TS 


RELRET 


CS 


BIT14 


INHINT 




MASK 


M0NSAVE1 


TS 


M0NSAVE1 


CCS 


DSPLIST 


TC 


*+2 


TC 


RELDSP2 


CAF 


ZERO 


XCH 


DSPLIST 


TC 


JOB WAKE 


EQU 


* 


RELINT 




CS 


BIT5 


MASK 


DSALMOUT 


TS 


DSALMOUT 


CAF 


ZERO 


TS 


DSPLOCK 


TC 


RELRET 



set DSPLOCK to +0 , turn RELDSP light 
off, search DSPLIST 



turn off external monitor bit 



list empty 



turn off KEY RLSE light 

was WAND DSALMOUT in Block II 



EQU * 

XCH Q 

TS RELRET 

Leave KEY RLSE light alone if 
T is not empty. 

CCS DSPLIST 

TC *+2 

TC RELDSP2 

CAF ZERO 



set DSPLOCK to +0 , No DSPLIST search 
turn KEY RLSE light off if DSPLIST is 



+ not empty, leave KEY RLSE light alone 
+0, list empty, turn off KEY RLSE light 
- not empty, leave KEY RLSE light alone 



05034 
05035 



5034 5 0, 0501 

5035 0, 0441 



TS 
TC 



DSPLOCK 
RELRET 



NEWMODEA 

The new major mode is in register A. Store the major mode in MODREG and update 
the major mode display . 

I couldn't find this in my COLOSSUS listing, so I borrowed it from UPDATVB-1 
(but modified it to work with the major mode instead of the verb) . 



05036 5036 5 0, 0500 1 

05037 5037 3 0, 0001 

05040 5040 5 0, 0572 1 

05041 5041 3 2,4677 

05042 5042 5 0, 0466 

05043 5043 3 1,2050 

05044 5044 6 0, 0500 1 

05045 5045 1,3565 1 

05046 5046 13144 1 

05047 5047 0, 0572 1 



NEWMODEA 


EQO 


* 










TS 


MODREG 




; store new major 


mod 




XCH 


Q 










TS 


NEWMODEA_ 


Q 


; save Q 






CAF 


MD1 










TS 


DSPCOUNT 










CAF 


ZERO 










AD 


MODREG 










TC 


BANKCALL 










CADR 


DSPDECVN 










TC 


NEWMODEA 


Q 


; return 





POODOO - Program alarm. 

Turn on program alarm light and store alarm code in FAILREG . The alarm code 
is retrieved from the address pointed to by Q . The most recent code is stored 
in FAILREG. Older codes are scrolled to FAILREG+1 , +2 . Older CADRs are 
scrolled down . 

This was missing from my COLOSSUS listing, so I had to guess at the 
implementation, based upon calling references in COLOSSUS , and text ual 
descriptions of normal noun 9 whi ch retrieves alarm codes . 













POODOO 


05050 


5050 


3 





0001 





05051 


5051 


5 





0130 





05052 


5052 


4 





0011 





05053 


5053 


7 


2 


5066 





05054 


5054 


4 





0000 





05055 


5055 


5 





0011 


1 


05056 


5056 


3 





0461 


1 


05057 


5057 


5 





0462 


1 


05060 


5060 


3 





0460 





05061 


5061 


5 





0461 


1 


05062 


5062 


2 





0130 


1 


05063 


5063 


3 





0000 


1 


05064 


5064 


5 





0460 





05065 


5065 





1 


2723 





05066 


5066 






17377 


1 NOTPAL 



EQU 


* 


XCH 


Q 


TS 


MPAC 


CS 


DSALMOUT 


MASK 


NOTPALT 


COM 




TS 


DSALMOUT 


XCH 


FAILREG+1 


TS 


FAILREG+2 


XCH 


FAILREG 


TS 


FAILREG+1 


INDEX 


MPAC 


CAF 





TS 


FAILREG 


TC 


ENDOFJOB 



incl usive OR bit 9 with 1 using 
Demorgan ' s theorem 



turn on PROG ALM light 
scroll previous codes down 



indirectly address Q 
(gets alarm code) 
store alarm code 



l's compliment of bit9 (PROG ALM) 



PINBRNCH 

This is supposed to restore the DSKY display to its former state in the 
event of error . According to COLOSSUS , it works if you use "Margaret ' s " 
code . I don ' t have that portion of the listing, so I just terminate 
the job, which seems to be an acceptable work-around, even though the 
old display is not restored . 



5067 1,2123 PINBRNCH 



ENDOFJOB 



BANKFF_ 6 



ORG 
INCL 



BANK 4 1_ 8 
bank41_8 . asm 



COLOSSUS pp. 379-380 



DISPLAY ROUTINES ( file : bank4 1_8 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 379-380. 



VBTSTLTS 



15572 6,1572 2 0,0000 



EQV 
INHINT 



heavily modified from the original Block II code. 



15573 6,1573 4 

15574 6,1574 7 

15575 6,1575 4 



0, 0011 
6, 7623 
0, 0000 



15576 6,1576 5 0,0011 1 



cs 


DSALMOUT 


MASK 


TSTC0N1 


COM 




TS 


DSALMOUT 



turn on lights 

inclusive OR light bits with 1 's using 

Demorgan ' s theorem 



15577 6,1577 3 1,2060 



15600 6,1600 5 0,0414 TSTLTS1 

15601 6,1601 4 6,7621 1 

15602 6,1602 2 0,0414 1 

15603 6,1603 5 0,0512 1 



TS ERCNT 

CS FVLLDSP 

INDEX ERCNT 

TS DSPTAB 



5604 


6 


1604 


1 





0414 


1 


5605 


6 


1605 





6 


7600 





5606 


6 


1606 


4 


6 


7622 


1 


5607 


6 


1607 


5 





0513 





5 610 


6 


1610 


5 


0, 


0516 





5611 


6, 


1611 


5 


0, 


0520 





5612 


6 


1612 


3 


1 


20 61 


1 


5 613 


6 


1613 


5 





0505 


1 



15614 6,1614 2,4760 1 

15615 6,1615 3 6,7624 

15616 6,1616 1,2232 

15617 6,1617 15625 1 



CCS 


ERCNT 


TC 


TSTLTS1 


CS 


FVLLDSP1 


TS 


DSPTAB+1 


TS 


DSPTAB+4 


TS 


DSPTAB+6 


CAF 


ELEVEN 


TS 


NOVT 


TC 


FLASHON 


CAF 


SHOLTS 


TC 


WAITLIST 


CADR 


TSTLTS2 



turn on 3 plus signs 



15620 6,1620 1,2723 



TC ENDOW JOB 

action) until TSTLTS3 to ensure that 
lights test will be seen . 



DSPLOCK is left busy (from keyboard 



5621 


6, 1621 


05675 FVLLDSP 


DS 


%05675 


5 622 


6, 1622 


07675 1 FVLLDSP1 


DS 


%07675 



; display all 8 ' s 

; display all 8 ' s and + 



l's Comp of UPTEL=bit3, KEY REL=bit5, oper err=bitl , PROG ALM=bit 9 



15623 


6, 


1623 






77253 





TSTC0N1 


DS 


%77253 


15 624 


6, 


162 4 






00764 


1 


SHOLTS 
TSTLTS2 


DS 
EQV 


%764 
* 


15625 


6 


1625 


3 


2 


4131 







CAF 


CHRPRIO 


15 626 


6 


1626 





1 


3162 


1 




TC 


NOV AC 


15 627 


6 


1627 






15631 


1 




CADR 


TSTLTS3 


15630 


6, 


1630 





1 


2413 





TSTLTS3 


TC 
EQV 


TASKOVER 

* 


15631 


6 


1631 


2 





0000 







INHINT 




15 632 


6 


1632 


3 


6 


7623 


1 




CAF 


TSTC0N1 


15633 


6 


1633 


7 





0011 







MASK 


DSALMOUT 


15634 


6, 


1634 


5 





0011 


1 




TS 


DSALMOUT 


15635 


6, 


1635 


2 





0000 


1 




RELINT 




15 636 


6 


1636 





1 


3565 


1 




TC 


BANKCALL 


15 637 


6 


1637 






10047 







CADR 


DSPMM 


15 640 


6 


164 





2 


4536 







TC 


KILMONON 


15641 


6 


1641 





2 


4770 







TC 


FLASHOFF 


15642 


6 


1642 





1 


3653 


1 




TC 


POSTJVMP 


15643 


6, 


1643 






13334 


1 


BANK41_9 


CADR 
EQV 

ORG 
INCL 


TSTLTS4 

* 

BANK 4 0_ 9 
bank4 9 . asm 



called by WAITLIST 



turn off lights 



redisplay C (MODREG) 

turn on kill monitor bit 

turn off V/N flash 

does RELDSP and goes to PINBRNCH if 

END IDLE is awaiting operator response 



COLOSSUS pp. 381-382 



DISPLAY ROUTINES ( file : bank4 0_9 . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 381-382. 



Error light reset . 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 381. 



134 62 
13463 



5, 1462 3 0, 0412 
5, 1463 5 0, 0501 



EQU 


* 


XCH 


2122REG 


TS 


DSPLOCK 



restore original C (DSPLOCK) , thus error 
light reset leaves DSPLOCK unchanged 



omitted some stuff in COLOSSUS here 



13464 5,1464 4 5,1520 

13465 5,1465 7 0,0011 

13466 5,1466 5 0,0011 1 



3467 


5 


1467 


3 


2 


4700 


1 TSTAB 


3470 


5 


1470 


5 





0414 





3471 


5 


1471 


2 





0000 





3472 


5 


1472 


2 





0414 


1 


3473 


5 


1473 


1 





0512 





3474 


5 


1474 


6 


1 


2051 


1 


3475 


5 


1475 





5 


7502 


1 


3476 


5 


1476 


6 


1 


2051 


1 



13477 5,1477 4 0,0000 ERMINVS 

13500 5,1500 7 5,7517 1 

13501 5,1501 5,7505 



13502 5,1502 4 

13503 5,1503 7 

13504 5,1504 4 



0, 0000 ERPLUS 
5, 7517 1 
0, 0000 



13505 5,1505 2 0,0414 1 ERCOM 

13506 5,1506 5 0,0512 1 

13507 5,1507 2 0,0000 1 

13510 5,1510 1 0,0414 1 

13511 5,1511 5,7470 

13512 5,1512 3 1,2050 

13513 5,1513 5 0,0460 

13514 5,1514 5 0,0461 1 

13515 5,1515 5 0,0462 1 

13516 5,1516 1,2723 

13517 5,1517 73777 1 N0TBIT12 



13520 5,1520 



0050 4 ERCON 

BANK 4 0_ 10 



cs 


ERCON 


MASK 


DSALMOUT 


TS 


DSALMOUT 


CAF 


B1NC0N 


TS 


ERCNT 


1NHINT 




INDEX 


ERCNT 


CCS 


DSP TAB 


AD 


ONE 


TC 


ERPLUS 


AD 


ONE 


CS 


A 


MASK 


N0TBIT12 


TC 


ERCOM 


CS 


A 


MASK 


N0TBIT12 


CS 


A 


INDEX 


ERCNT 


TS 


DSP TAB 


RELINT 




CCS 


ERCNT 


TC 


TSTAB + 1 


CAF 


ZERO 


TS 


FAILREG 


TS 


FAILREG+1 


TS 


FAILREG+2 


TC 


ENDOFJOB 


DS 


%7J777 


DS 


%504 


EQV 


* 



turn off UPTL, OPER ERR, PROG ALM 



dec 1 

ERCNT = count 



clear the error codes for PROG ALM 



channel 11 bits 3, 7 , 9 



end of PINBALL routines 
PINBALL NOUN tables 



ORG 
INCL 



BANK42_3 
bank42_3 . asm 



COLOSSUS pp. 263-279 



PINBALL NOUN TABLES ( file : bank42_3 . asm) 

The following routines are for reading the noun tables and the scale 
factor ( SF) tables (whi ch are in a separate bank from the rest of 
PINBALL) . These reading routines are in the same bank as the tables . 
They are called by DXCH Z (translated to DXCHJUMP for Block I) . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 263-279. 



Noun table info from COLOSSUS, p . 325 



noun code < 40 : normal noun case 
noun code >= 40 : mixed noun case 



NNADTAB: 

for normal noun case , NNADTAB contains one CADR for each noun . 

+ entry = noun CADR 

+0 = noun not used . 

-entry = machine CADR (E or F) to be specified . 

-1 = channel to be specified (not used for Block I) ; 

-0 = augment of last machine CADR supplied . 

for mixed noun case , NNADTAB contains one indirect address ( IDADDREL) 
in low 10 bits , and the component code number in the high 5 bits . 



Examples : 

NNADTAB 
NNADTAB 
NNADTAB 
NNADTAB 



% 000 4 2 ; CADR for octal address 42 

% 000 00 ; noun not used 

% 4 000 ; specify machine address 

% 7 7777 ; augment last address 



NNTYPETAB (normal case) : 

a packed table of the form : 



MMMMM NNNNN PPPPP 



for the normal case : 

MMMMM (bits 15-11) 



COMPONENT CODE NUMBER (p. 263} 

00000 = 1 component 

00001 = 2 component 
00010 = 3 component 

X1XXX = bit4=l, decimal only 
1XXXX = bit5=l, no load 



NNNNN (bits 10-6): SF ROUTINE CODE NUMBER (p. 263) 

00000 = octal only 

00001 = straight fractional (decimal) 

00010 = CDU degrees (XXX. XX) 

00011 = arithmetic SF 

00100 = arith DPI, OUT (mult by 2EXP14 at end), 

00101 = arith DP2, OUT (straight ) , IN(SL 

00110 = Y optics degrees (XX. XXX max at 89.999) 

00111 = arith DP3, OUT (SL 7 at end) 
01000 = whole hours in Rl , whole minutes (mod 60) in R2 , 

seconds (mod 60) OXX . XX in R3 * ** alarms if used wi th 



IN (straight) 
at end) 



IN (straight) 



PPPPP (bits 5-1): SF CONSTANT CODE NUMBER (p. 263} 
00000 = whole, use arith 



Examples : 

NNTYPTAB 
NNTYPTAB 
NNTYPTAB 
NNTYPTAB 
NNTYPTAB 



%00000 
%02000 
104000 
%00040 
%04040 



1 comp , octal only 

2 comp , octal only 

3 comp , octal only 

1 comp , straight fractional 

3 comp , straight fractional 



NNTYPETAB (mixed case) : 

a packed table of the form: MMMMM NNNNN PPPPP 

for the mixed case (3 component ) : 

MMMMM (bits 15-11) = SF constant3 code number. 

NNNNN (bits 10-6) = SF constant2 code number . 

PPPPP (bits 5-1) = SF constant 1 code number. 

for the mixed case (2 component ) : 

NNNNN (bits 10-6) = SF constant2 code number . 

PPPPP (bits 5-1) = SF constant 1 code number. 

for the mixed case (1 component ) : 

PPPPP (bits 5-1) = SF constant 1 code number. 



IDADDTAB (mixed case only) : 

there is also an indirect address table for mixed case only . 

Each entry contains one EC ADR . IDADDREL is the relative address of 

the first of these entries . 

There is one entry in this table for each component of a mixed noun . 
They are listed in order of ascending K . 



RUTMXTAB (mixed case only) : 

there is also a scale factor routine number table for mixed case only . 

There is one entry per mixed noun. The form is: QQQQQ RRRRR SSSSS 

for the 3 component case 

QQQQQ (bits 15-11) = SF routine3 code number. 

RRRRR (bits 10-6) = SF routine2 code number. 

SSSSS (bits 5-1) = SF routinel code number. 

for the 2 component case 

RRRRR (bits 10-6) = SF routine2 code number. 

SSSSS (bits 5-1) = SF routinel code number. 



In octal display and load (oct or dec) verbs , exclude use of verbs whose 

component number is greater than the number of components in noun . 

(All machine address to be specified nouns are 3 component) 

In multi-component load verbs , no mixing of octal and decimal data 

component words is allowed; alarm i f violation . 



In decimal loads of data, 5 numerical chars must be keyed in before 
each enter ; if not , alarm . 



LODNNTAB 

loads NNADTEM with the NNADTAB entry, NNTYPTEM with the NNTYPTAB 

entry. If the noun is mixed, IDAD1TEM is loaded with the first IDADTAB 

entry, IDAD2TEM the second IDADTAB entry, IDAD3TEM the third IDADTAB 

entry, RUTMXTEM with the RUTMXTAB entry. MIXBR is set for mixed=2 

or normal=l noun . 

NOTE: in Blockll , NNADTEM = -1 means use an I/O channel instead of a 
memory address (channel specified in NOUNCADR) . Block I does not have 
I/O channels . 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 265. 















LODNNTAB 


16114 


7 , 


0114 


5 


0, 


05 62 





16115 


7 


0115 


2 





0471 


1 


16116 


7 


0116 


3 


7 


6210 


1 


16117 


7 , 


0117 


5 


0, 


0443 


1 


1612 


7 


0120 


2 





0471 


1 


16121 


7 


0121 


3 


7 


6354 





16122 


7 , 


0122 


5 


0, 


0444 





16123 


7 


0123 


4 





0471 


1 


16124 


7 


0124 


6 


7 


6161 


1 


16125 


7 


0125 


1 





0000 





1612 6 


7 


0126 





7 


6132 


1 


1612 7 


7 


0127 





7 


6131 


1 


16130 


7 


0130 





7 


6131 


1 


16131 


7 , 


0131 





7, 


6135 





16132 


7 , 


0132 


3 


1 


2051 


1 


16133 


7 


0133 


5 





0435 






16134 7,0134 7,6156 



16135 
16136 

16137 
1614 
16141 

16142 
16143 
1614 4 

16145 
1614 6 
1614 7 

16150 
16151 
16152 

16153 
16154 
16155 



16156 
16157 
16160 



LODMI XNN 



7, 0135 3 1, 2052 1 

7, 0136 5 0, 0435 

7, 0137 2 0, 0471 1 

7, 0140 3 7, 7054 1 

7, 0141 5 0, 0450 

7, 0142 3 2, 4674 

7, 0143 7 0, 0443 

7, 0144 5 0, 0001 

7 , 0145 2 0, 0000 

7 , 0146 3 7 , 6640 

7 , 0147 5 0, 0445 1 

7 , 0150 2 0, 0001 1 

7 , 0151 3 7 , 6641 1 

7 , 0152 5 0, 0446 1 

7, 0153 2 0, 0001 1 

7, 0154 3 7, 6642 1 

7, 0155 5 0, 0447 



7, 0156 3 
7, 0157 6 
7, 0160 



1,2050 
0, 0562 
1,3526 



EQU 


* 


TS 


GTSF_RET 


INDEX 


NOUNREG 


CAF 


NNADTAB 


TS 


NNADTEM 


INDEX 


NOUNREG 


CAF 


NNTYPTAB 


TS 


NNTYPTEM 


CS 


NOUNREG 


AD 


MIXCON 


CCS 


A 


TC 


* + 4 


TC 


* + 2 


TC 


* + l 


TC 


LODMI XNN 


CAF 


ONE 


TS 


MIXBR 


TC 


LODNLV 


EQV 


* 


CAF 


TWO 


TS 


MIXBR 


INDEX 


NOUNREG 


CAF 


RUTMXTAB-40 


TS 


RUTMXTEM 


CAF 


LOW10 


MASK 


NNADTEM 


TS 


Q 


INDEX 


A 


CAF 


ID ADD TAB 


TS 


I DAD ITEM 


INDEX 


Q 


CAF 


IDADDTAB+1 


TS 


IDAD2TEM 


INDEX 


Q 


CAF 


IDADDTAB+2 


TS 


IDAD3TEM 


EQV 


* 


CAF 


ZERO 


AD 


GTSF_RET 


TC 


DXCHJUMP 



save return CADR 



was BZMT LODMIXNN in Block II 

>0 

+0, noun number G/E first mixed noun 

<0, noun number G/E first mixed noun 

—0, noun number G/E first mixed noun 



noun number L/ first mixed noun 
normal, +1 into MIXBR 



mixed, +2 into MIXBR 



first mixed noun = 40 



load IDAD1TEM with first IDADDTAB entry 



load IDAD2TEM with 2nd IDADDTAB entry 



load IDAD3TEM with 3rd IDADDTAB entry 



load return CADR 
return 



16161 7,0161 



0050 1 MIXCON 



1st mixed noun = 40 (DEC 40) 



GTSFOUT 

On entry, SFTEMP1 contains SFCONUM X 2. 

Loads SFTEMP1, SFTEMP2 with the DP SFOUTAB entries 

GTSFIN 

On entry, SFTEMP1 contains SFCONUM X 2. 

Loads SFTEMP1, SFTEMP2 with the DP SFIWTAB entries 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 266. 



7 , 0162 5 0, 0562 



EQU 

TS 



GTSF_RET 



save return CADR 



16163 


7 , 


0163 


3 


0, 


0420 


1 


16164 


7 , 


0164 


5 


0, 


0001 





16165 


7 , 


0165 


2 


0, 


0001 


1 


16166 


7 , 


0166 


3 


7 , 


6570 





16161 


7 , 


0167 


5 


0, 


0420 


1 


16170 


7 , 


0170 


2 


0, 


0001 


1 


16171 


7 , 


0171 


3 


7 , 


6571 


1 


16172 


7 , 


0172 


5 


0, 


0421 




SFCOM 


16173 


7 , 


0173 


3 


1, 


2050 





16174 


7 , 


0174 


6 


, 


05 62 





16175 


7 , 


0175 





1, 


3526 




GTSFIN 


1617 6 


7 , 


0176 


5 


, 


05 62 





1617 7 


7 , 


0177 


3 


, 


0420 


1 


16200 


7 , 


0200 


5 


, 


0001 





16201 


7 , 


0201 


2 


, 


0001 


1 


16202 


7 , 


02 02 


3 


7 , 


6520 





16203 


7 , 


0203 


5 


, 


0420 


1 


16204 


7 , 


0204 


2 


, 


0001 


1 


16205 


7 , 


0205 


3 


7 , 


6521 


1 


1620 6 


7 , 


0206 


5 


0, 


0421 





16207 


7 , 


02 7 





7 , 


6173 


1 



XCH 

TS 


SF TEMPI 
Q 


INDEX 

CAF 
TS 


Q 

SFOUTAB 
SF TEMPI 


INDEX 
CAF 

TS 


Q 

SFOUTAB+1 

SFTEMP2 


EQV 
CAF 

AD 
TC 


* 

ZERO 

GTSF_RET 

DXCHJVMP 


EQV 

TS 


* 
GTSF_RET 


XCH 

TS 


SF TEMPI 
Q 


INDEX 

CAF 
TS 


Q 

SFINTAB 
SF TEMPI 


INDEX 

CAF 
TS 


Q 

SFINTAB+1 

SFTEMP2 



temp 



load return CADR 
return 



save return CADR 



NOUN ADDRESS TABLE (NNADTAB) 

Indexed by noun number (0-39 decimal for normal nouns) . 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 266. 



16210 
16211 
16212 
16213 
16214 
16215 
16216 
16217 
16220 
16221 
16222 
16223 
1622 4 
16225 
16226 
16227 
16230 
16231 
16232 
16233 
16234 
16235 
16236 
16237 
16240 
16241 
16242 
16243 
16244 
16245 
16246 
16247 
16250 
16251 
16252 
16253 
16254 
16255 
16256 
16257 



7, 0210 
7 , 0211 
7 , 0212 
7 , 0213 
7 , 0214 
7 , 0215 
7 , 0216 
7, 0217 
7, 0220 
7, 0221 
7 , 0222 
7 , 0223 
7 , 0224 
7, 0225 
7, 0226 
7, 0227 
7, 0230 
7 , 0231 
7 , 0232 
7 , 0233 
7 , 0234 
7, 0235 
7 , 0236 
7 , 0237 
7, 0240 
7 , 0241 
7 , 0242 
7 , 0243 
7, 0244 
7 , 0245 
7 , 0246 
7 , 0247 
7 , 0250 
7 , 0251 
7 , 0252 
7 , 0253 
7 , 0254 
7, 0255 
7, 0256 
7, 0257 







NNADTAB 


EQV 


* 


00000 


1 




DS 


%0 


40000 







DS 


%40000 


40000 







DS 


%40000 


40000 







DS 


%40000 


00036 


1 




DS 


%00036 


00000 


1 




DS 


%0 


00000 


1 




DS 


%0 


00000 


1 




DS 


%0 


00000 


1 




DS 


%0 


00460 







ECADR 


FAILREG 


00000 


1 




DS 


%0 


00000 


1 




DS 


%0 


00000 


1 




DS 


%0 


00000 


1 




DS 


%0 


00000 


1 




DS 


%0 


77777 







DS 


S77777 


00000 


1 




DS 


»0 


00000 


1 




DS 


so 


00000 


1 




DS 


%0 


00000 


1 




DS 


so 


00000 


1 




DS 


»0 


00000 


1 




DS 


so 


00000 


1 




DS 


so 


00000 


1 




DS 


%0 


00000 


1 




DS 


%0 


00000 


1 




DS 


so 


00534 







ECADR 


DSPTEM1 


00000 


1 




DS 


SO 


00000 


1 




DS 


so 


00000 


1 




DS 


so 


00000 


1 




DS 


so 


00000 


1 




DS 


so 


00000 


1 




DS 


%0 


00000 


1 




DS 


so 


00000 


1 




DS 


so 


00000 


1 




DS 


%0 


00035 


1 




ECADR 


TIME2 


00000 


1 




DS 


SO 


00000 


1 




DS 


so 


00000 


1 


; end of 


DS 
normal nouns 


so 



MM 


- 


NORMAL NOUNS 


00 


- 


not in use 


01 


- 


specify machine address (fractional ) 


02 


- 


specify machine address (whole) 


03 


- 


specify machine address (degrees ) 


04 


- 


spare *********** TEST, CHANGE TO ZERO 


05 


- 


spare 


06 


- 


spare 


07 


- 


spare 


08 


- 


spare 


09 


- 


alarm codes 


10 


- 


spare 


11 


- 


spare 


12 


- 


spare 


13 


- 


spare 


14 


- 


spare 


15 


- 


increment machine address 


16 


- 


spare 


17 


- 


spare 


18 


- 


spare 


19 


- 


spare 


20 


- 


spare 


21 


- 


spare 


22 


- 


spare 


23 


- 


spare 


24 


- 


spare 


25 


- 


spare 


26 


- 


prio/delay, adres, BBCON 


27 


- 


spare 


28 


- 


spare 


29 


- 


spare 


30 


- 


spare 


31 


- 


spare 


32 


- 


spare 


33 


- 


spare 


34 


- 


spare 


35 


- 


spare 


36 


- 


time of AGC clock (hrs, min, sec) 


37 


- 


spare 


38 


- 


spare 


39 


- 


spare 



start of mixed nouns 



16260 
16261 



7, 0260 
7, 0261 



00000 1 
00000 1 



DS 
DS 



SO 

so 



40 
41 



spare 
spare 



162 62 


7, 


02 62 


00000 


1 


DS 


%0 


16263 


7, 


02 63 


00000 


1 


DS 


%0 


16264 


7 , 


0264 


00000 


1 


DS 


%0 


162 65 


7, 


02 65 


00000 


1 


DS 


to 


16266 


7 , 


0266 


00000 


1 


DS 


%0 


162 61 


7 , 


02 67 


00000 


1 


DS 


%0 


16270 


7 , 


0270 


00000 


1 


DS 


%0 


16271 


7 , 


0271 


00000 


1 


DS 


%0 


16272 


7 , 


0272 


00000 


1 


DS 


%0 


16273 


7 , 


0273 


00000 


1 


DS 


%0 


16274 


7 , 


0274 


00000 


1 


DS 


%0 


16275 


7 , 


0275 


00000 


1 


DS 


%0 


16276 


7 , 


02 7 6 


00000 


1 


DS 


%0 


16277 


7 , 


027 7 


00000 


1 


DS 


%0 


16300 


7 , 


0300 


00000 


1 


DS 


%0 


16301 


7 , 


0301 


00000 


1 


DS 


%0 


16302 


7 , 


0302 


00000 


1 


DS 


%0 


16303 


7 , 


0303 


00000 


1 


DS 


%0 


16304 


7 , 


0304 


00000 


1 


DS 


%0 


16305 


7 , 


0305 


00000 


1 


DS 


%0 


16306 


7 , 


0306 


00000 


1 


DS 


%0 


16307 


7 , 


0307 


00000 


1 


DS 


%0 


16310 


7 , 


0310 


00000 


1 


DS 


%0 


16311 


7 , 


0311 


00000 


1 


DS 


%0 


16312 


7 , 


0312 


00000 


1 


DS 


%0 


16313 


7 , 


0313 


00000 


1 


DS 


%0 


16314 


7 , 


0314 


00000 


1 


DS 


%0 


16315 


7 , 


0315 


00000 


1 


DS 


%0 


16316 


7 , 


0316 


00000 


1 


DS 


%0 


16317 


7 , 


0317 


00000 


1 


DS 


%0 


16320 


7 , 


0320 


00000 


1 


DS 


%0 


16321 


7 , 


0321 


00000 


1 


DS 


%0 


16322 


7 , 


0322 


00000 


1 


DS 


%0 


16323 


7 , 


0323 


00000 


1 


DS 


%0 


16324 


7 , 


0324 


00000 


1 


DS 


%0 


16325 


7 , 


0325 


00000 


1 


DS 


to 


1632 6 


7 , 


0326 


00000 


1 


DS 


%0 


16327 


7 , 


0327 


00000 


1 


DS 


to 


16330 


7 , 


0330 


00000 


1 


DS 


%0 


16331 


7 , 


0331 


00000 


1 


DS 


to 


16332 


7 , 


0332 


00000 


1 


DS 


%0 


16333 


7 , 


0333 


00000 


1 


DS 


to 


16334 


7 , 


0334 


00000 


1 


DS 


%0 


16335 


7 , 


0335 


00000 


1 


DS 


%0 


16336 


7 , 


0336 


00000 


1 


DS 


%0 


16337 


7 , 


0337 


00000 


1 


DS 


to 


16340 


7 , 


0340 


00000 


1 


DS 


%0 


16341 


7 , 


0341 


00000 


1 


DS 


to 


16342 


7 , 


0342 


00000 


1 


DS 


%0 


16343 


7 , 


0343 


00000 


1 


DS 


to 


16344 


7 , 


0344 


00000 


1 


DS 


%0 


16345 


7 , 


0345 


00000 


1 


DS 


to 


16346 


7 , 


0346 


00000 


1 


DS 


%0 


16347 


7 , 


0347 


00000 


1 


DS 


to 


16350 


7 , 


0350 


00000 


1 


DS 


%0 


16351 


7 , 


0351 


00000 


1 


DS 


%0 


16352 


7 , 


0352 


00000 


1 


DS 


%0 


16353 


7 , 


0353 


00000 


1 

; en 


DS 
d of mixed nouns 


to 



42 - 


spare 


43 - 


spare 


44 - 


spare 


45 - 


spare 


46 - 


spare 


41 - 


spare 


48 - 


spare 


49 - 


spare 


50 - 


spare 


51 - 


spare 


52 - 


spare 


53 - 


spare 


54 - 


spare 


55 - 


spare 


56 - 


spare 


51 - 


spare 


58 - 


spare 


59 - 


spare 


60 - 


spare 


61 - 


spare 


62 - 


spare 


63 - 


spare 


64 - 


spare 


65 - 


spare 


66 - 


spare 


61 - 


spare 


68 - 


spare 


69 - 


spare 


10 - 


spare 


11 - 


spare 


12 - 


spare 


13 - 


spare 


14 - 


spare 


15 - 


spare 


16 - 


spare 


11 - 


spare 


18 - 


spare 


19 - 


spare 


80 - 


spare 


81 - 


spare 


82 - 


spare 


83 - 


spare 


84 - 


spare 


85 - 


spare 


86 - 


spare 


81 - 


spare 


88 - 


spare 


89 - 


spare 


90 - 


spare 


91 - 


spare 


92 - 


spare 


93 - 


spare 


94 - 


spare 


95 - 


spare 


96 - 


spare 


91 - 


spare 


98 - 


spare 


99 - 


spare 



NOUN TYPE TABLE (NNTYPTAB) 

Indexed by noun number (0-39 decimal for normal nouns) . 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 269. 











NNTYPTAB EQO 


* 


16354 


7 , 


0354 


00000 


1 


DS 


%0 


16355 


7 , 


0355 


04040 


1 


DS 


%04040 


16356 


7 , 


0356 


04140 





DS 


%04140 


16357 


7 , 


0357 


04102 





DS 


%04102 


16360 


7 , 


0360 


00000 


1 


DS 


%0 


16361 


7 , 


0361 


00000 


1 


DS 


to 


16362 


7 , 


03 62 


00000 


1 


DS 


to 


16363 


7 , 


0363 


00000 


1 


DS 


%0 


16364 


7 , 


0364 


00000 


1 


DS 


to 


16365 


7 , 


0365 


04000 





DS 


%04000 


16366 


7 , 


0366 


00000 


1 


DS 


%0 


16367 


7 , 


0367 


00000 


1 


DS 


%0 


16370 


7 , 


0370 


00000 


1 


DS 


to 


16371 


7 , 


0371 


00000 


1 


DS 


%0 


16372 


7 , 


0372 


00000 


1 


DS 


to 


16373 


7 , 


0373 


00000 


1 


DS 


to 


16374 


7 , 


0374 


00000 


1 


DS 


to 


16375 


7 , 


0375 


00000 


1 


DS 


%0 



M» - 


NORMAL NOONS 


00 - 


not in use 


01 - 


3 component 


02 - 


3 component 


03 - 


3 component 


04 - 


spare 


05 - 


spare 


06 - 


spare 


07 - 


spare 


08 - 


spare 


09 - 


3 component , 


10 - 


spare 


11 - 


spare 


12 - 


spare 


13 - 


spare 


14 - 


spare 


15 - 


1 component , 


16 - 


spare 


17 - 


spare 



(fractional ) 

(whole) 

(CDU degrees) 



octal only 



octal only 



16376 


7 , 


0376 


00000 


1 


DS 


%0 


1637 7 


7, 


0377 


00000 


1 


DS 


%0 


16400 


7 , 


0400 


00000 


1 


DS 


%0 


16401 


7 , 


0401 


00000 


1 


DS 


to 


16402 


7 , 


0402 


00000 


1 


DS 


%0 


16403 


7 , 


0403 


00000 


1 


DS 


%0 


16404 


7 , 


0404 


00000 


1 


DS 


%0 


16405 


7 , 


0405 


00000 


1 


DS 


%0 


16406 


7 , 


0406 


04000 





DS 


%04000 


16407 


7 , 


0407 


00000 


1 


DS 


%0 


16410 


7 , 


0410 


00000 


1 


DS 


%0 


16411 


7 , 


0411 


00000 


1 


DS 


%0 


16412 


7 , 


0412 


00000 


1 


DS 


%0 


16413 


7 , 


0413 


00000 


1 


DS 


%0 


16414 


7 , 


0414 


00000 


1 


DS 


%0 


16415 


7 , 


0415 


00000 


1 


DS 


%0 


16416 


7 , 


0416 


00000 


1 


DS 


%0 


16417 


7 , 


0417 


00000 


1 


DS 


%0 


16420 


7 , 


0420 


24400 





DS 


%24400 


16421 


7 , 


0421 


00000 


1 


DS 


%0 


16422 


7 , 


0422 


00000 


1 


DS 


%0 


16423 


7 , 


0423 


00000 


1 

,' en 


DS 
d of normal nouns 


%0 



18 


- 


spare 




19 


- 


spare 




20 


- 


spare 




21 


- 


spare 




22 


- 


spare 




23 


- 


spare 




24 


- 


spare 




25 


- 


spare 




26 


- 


3 component , 


octal only 


27 


- 


spare 




28 


- 


spare 




29 


- 


spare 




30 


- 


spare 




31 


- 


spare 




32 


- 


spare 




33 


- 


spare 




34 


- 


spare 




35 


- 


spare 




36 


- 


3 component , 


HMS, (dec only) 


37 


- 


spare 




38 


- 


spare 




39 


- 


spare 





start of mixed nouns 



16424 


7 , 


0424 


00000 


1 


DS 


%0 


16425 


7 , 


0425 


00000 


1 


DS 


%0 


16426 


7 , 


0426 


00000 


1 


DS 


%0 


16427 


7 , 


0427 


00000 


1 


DS 


%0 


16430 


7 , 


0430 


00000 


1 


DS 


%0 


16431 


7 , 


0431 


00000 


1 


DS 


%0 


16432 


7 , 


0432 


00000 


1 


DS 


%0 


16433 


7 , 


0433 


00000 


1 


DS 


%0 


16434 


7 , 


0434 


00000 


1 


DS 


%0 


16435 


7 , 


0435 


00000 


1 


DS 


to 


16436 


7 , 


0436 


00000 


1 


DS 


%0 


16437 


7 , 


0437 


00000 


1 


DS 


to 


16440 


7 , 


0440 


00000 


1 


DS 


%0 


16441 


7 , 


0441 


00000 


1 


DS 


to 


16442 


7 , 


0442 


00000 


1 


DS 


%0 


16443 


7 , 


0443 


00000 


1 


DS 


to 


16444 


7 , 


0444 


00000 


1 


DS 


%0 


16445 


7 , 


0445 


00000 


1 


DS 


%0 


16446 


7 , 


0446 


00000 


1 


DS 


%0 


16447 


7 , 


0447 


00000 


1 


DS 


to 


16450 


7 , 


0450 


00000 


1 


DS 


%0 


16451 


7 , 


0451 


00000 


1 


DS 


to 


16452 


7 , 


0452 


00000 


1 


DS 


%0 


16453 


7 , 


0453 


00000 


1 


DS 


to 


16454 


7 , 


0454 


00000 


1 


DS 


%0 


16455 


7 , 


0455 


00000 


1 


DS 


to 


16456 


7 , 


0456 


00000 


1 


DS 


%0 


16457 


7 , 


0457 


00000 


1 


DS 


to 


16460 


7 , 


0460 


00000 


1 


DS 


%0 


16461 


7 , 


0461 


00000 


1 


DS 


%0 


164 62 


7 , 


04 62 


00000 


1 


DS 


%0 


164 63 


7 , 


0463 


00000 


1 


DS 


to 


16464 


7 , 


0464 


00000 


1 


DS 


%0 


164 65 


7 , 


0465 


00000 


1 


DS 


to 


16466 


7 , 


0466 


00000 


1 


DS 


%0 


16467 


7 , 


0467 


00000 


1 


DS 


to 


16470 


7 , 


0470 


00000 


1 


DS 


%0 


16471 


7 , 


0471 


00000 


1 


DS 


to 


16472 


7 , 


0472 


00000 


1 


DS 


%0 


16473 


7 , 


0473 


00000 


1 


DS 


to 


16474 


7 , 


0474 


00000 


1 


DS 


%0 


16475 


7 , 


0475 


00000 


1 


DS 


to 


16476 


7 , 


0476 


00000 


1 


DS 


%0 


16477 


7 , 


0477 


00000 


1 


DS 


to 


16500 


7 , 


0500 


00000 


1 


DS 


%0 


16501 


7 , 


0501 


00000 


1 


DS 


to 


165 02 


7 , 


0502 


00000 


1 


DS 


%0 


16503 


7 , 


0503 


00000 


1 


DS 


to 


16504 


7 , 


0504 


00000 


1 


DS 


%0 


16505 


7 , 


0505 


00000 


1 


DS 


to 


16506 


7 , 


0506 


00000 


1 


DS 


%0 


16507 


7 , 


0507 


00000 


1 


DS 


to 


16510 


7 , 


0510 


00000 


1 


DS 


%0 


16511 


7 , 


0511 


00000 


1 


DS 


%0 


16512 


7 , 


0512 


00000 


1 


DS 


%0 


16513 


7 , 


0513 


00000 


1 


DS 


to 


16514 


7 , 


0514 


00000 


1 


DS 


%0 


16515 


7 , 


0515 


00000 


1 


DS 


to 


16516 


7 , 


0516 


00000 


1 


DS 


%0 


16517 


7 , 


0517 


00000 


1 

; en 


DS 
d of mixed nouns 


%0 



40 - 


spare 


41 - 


spare 


42 - 


spare 


43 - 


spare 


44 - 


spare 


45 - 


spare 


46 - 


spare 


41 - 


spare 


48 - 


spare 


49 - 


spare 


50 - 


spare 


51 - 


spare 


52 - 


spare 


53 - 


spare 


54 - 


spare 


55 - 


spare 


56 - 


spare 


51 - 


spare 


58 - 


spare 


59 - 


spare 


60 - 


spare 


61 - 


spare 


62 - 


spare 


63 - 


spare 


64 - 


spare 


65 - 


spare 


66 - 


spare 


61 - 


spare 


68 - 


spare 


69 - 


spare 


10 - 


spare 


11 - 


spare 


12 - 


spare 


13 - 


spare 


14 - 


spare 


15 - 


spare 


16 - 


spare 


11 - 


spare 


18 - 


spare 


19 - 


spare 


80 - 


spare 


81 - 


spare 


82 - 


spare 


83 - 


spare 


84 - 


spare 


85 - 


spare 


86 - 


spare 


81 - 


spare 


88 - 


spare 


89 - 


spare 


90 - 


spare 


91 - 


spare 


92 - 


spare 


93 - 


spare 


94 - 


spare 


95 - 


spare 


96 - 


spare 


91 - 


spare 


98 - 


spare 


99 - 


spare 



SCALE FACTOR INPUT TABLE (SFINTAB) 

Indexed by SF constant code number x 2 PPPPP (0-19 decimal ; 0-23 octal) 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 212. 



SFINTAB 



16520 
16521 



16522 
16523 



16524 
16525 



1652 6 
16521 



16530 
16531 



16532 
16533 



16534 
16535 



16536 
16531 



16540 
16541 



16542 
16543 



16544 
16545 



16546 
16541 



16550 
16551 



16552 
16553 



16554 
16555 



16556 
16551 



16560 
16561 



165 62 
16563 



16564 
165 65 



16566 
16561 



1, 0520 
1 , 0521 



1 , 0522 
1 , 0523 



1, 0524 
1 , 0525 



1 , 0526 
1, 0521 



1, 0530 
1 , 0531 



1 , 0532 
1 , 0533 



1, 0534 
1 , 0535 



1 , 0536 
1 , 0531 



1, 0540 
1, 0541 



1, 0542 
1, 0543 



1, 0544 
1, 0545 



1, 0546 
1, 0541 



1, 0550 
1, 0551 



1, 0552 
1, 0553 



1, 0554 
1, 0555 



1, 0556 
1, 0551 



1, 0560 
1 , 0561 



1 , 0562 
1 , 0563 



1, 0564 
1 , 0565 



1 , 0566 
1, 0561 



00006 1 
03240 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 
00000 



00000 
00000 



00000 
00000 



EQU 


* 


DS 


%00006 


DS 


%03240 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


iOOOOO 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


iOOOOO 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


iOOOOO 



00 
00 



01 
01 



02 
02 



03 
03 



04 
04 



05 
05 



06 
06 



01 
01 



10 
10 



11 
11 



12 
12 



13 
13 



14 
14 



15 
15 



16 
16 



1 7 
1 7 



20 
20 



21 
21 



22 
22 



23 
23 



whole, DP time (sec) 



CDU degrees , Y optics degrees 
(SFCONs in DEGINSF, OPTDEGIN 



SCALE FACTOR OUTPUT TABLE (SFOUTAB) 

Indexed by SF constant code number x 2 PPPPP (0-19 decimal ; 0-23 octal) 

Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 213. 











SFOUTAB 


EQU 


* 


6510 


7 


0510 


05114 





DS 


%05114 


6511 


7 , 


0511 


13261 





DS 


%13261 


6512 


7 


0512 


00000 


1 


DS 


%00000 


6513 


1 , 


0513 


00000 


1 


DS 


%00000 


6514 


7, 


0514 


00000 


1 


DS 


%00000 


6515 


1 , 


0515 


00000 


1 


DS 


iOOOOO 



00 - whole, DP time (sec) 
00 



01 
01 



02 - CDU degrees , Y optics degrees 
02 (SFCONs in DEGOURSF, OPTDEGOUT 



16576 
16577 



16600 
16601 



16602 
16603 



16604 
16605 



16606 
16607 



16610 
16611 



16612 
16613 



16614 
16615 



16616 
16617 



16620 
16621 



16622 
16623 



16624 
16625 



16626 
16627 



16630 
16631 



16632 
16633 



16634 
16635 



16636 
16637 



7 , 0576 
7 , 0577 



7, 0600 
7 , 0601 



7 , 0602 
7 , 0603 



7 , 0604 
7 , 0605 



7 , 0606 
7 , 0607 



7 , 0610 
7 , 0611 



7 , 0612 
7 , 0613 



7, 0614 
7 , 0615 



7 , 0616 
7, 0617 



7, 0620 
7 , 0621 



7 , 0622 
7 , 0623 



7 , 0624 
7 , 0625 



7 , 0626 
7 , 0627 



7 , 0630 
7 , 0631 



7 , 0632 
7 , 0633 



7 , 0634 
7 , 0635 



7 , 0636 
7 , 0637 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 1 
00000 1 



00000 
00000 



00000 
00000 



00000 
00000 



DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


iOOOOO 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 


DS 


%00000 



03 
03 



04 
04 



05 
05 



06 
06 



07 
07 



10 
10 



11 
11 



12 
12 



13 
13 



14 
14 



15 
15 



16 
16 



1 7 
1 7 



20 
20 



21 
21 



22 
22 



23 
23 



SCALE FACTOR INPUT ROUTINE TABLE is on pp. 
SCALE FACTOR OUTPUT ROUTINE TABLE is on p. 



342, 343 of COLOSSUS 
329 of COLOSSUS 



MIXED NOUN ADDRESS TABLE (IDADDTAB) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 274. 



** currently , the table is not populated ** 











IDADDTAB EQU 


* 


16640 


7, 


64 


00000 


1 


DS 


%0 


16641 


7, 


0641 


00000 


1 


DS 


%0 


16642 


7 , 


0642 


00000 


1 


DS 


%0 


16643 


7 , 


0643 


00000 


1 


DS 


%0 


16644 


7 , 


64 4 


00000 


1 


DS 


%0 


16645 


7 , 


0645 


00000 


1 


DS 


%0 


16646 


7 , 


64 6 


00000 


1 


DS 


%0 


16647 


7 , 


647 


00000 


1 


DS 


%0 


16650 


7 , 


0650 


00000 


1 


DS 


%0 


16651 


7 , 


0651 


00000 


1 


DS 


%0 


16652 


7 , 


652 


00000 


1 


DS 


%0 


16653 


7 , 


0653 


00000 


1 


DS 


%0 


16654 


7 , 


0654 


00000 


1 


DS 


%0 


16655 


7 , 


0655 


00000 


1 


DS 


%0 


16656 


7 , 


65 6 


00000 


1 


DS 


%0 


16657 


7 , 


657 


00000 


1 


DS 


%0 



40 
40 
40 

41 
41 
41 

42 
42 
42 

43 
43 
43 

44 
44 
44 



spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 



16660 
16661 

16662 
16663 
16664 

16665 
16666 
16667 

16670 
16671 
16672 

16673 
16674 
16675 

16676 
16677 
16700 

16701 
16702 
16703 

16704 
16705 
16706 

16707 
16710 
16711 

16712 
16713 
16714 

16715 
16716 
16717 

16720 
16721 
16722 

16723 
16724 
16725 

16 726 
16 727 
16730 

16731 
16732 
16733 

16734 
16735 
16736 

16737 
16740 
16741 

16742 
16743 
16744 

16745 
16746 
16747 

16750 
16751 
16752 

16753 
16754 
16755 

16756 
16757 
16760 



7, 0660 
7 , 0661 

7 , 0662 
7 , 0663 
7 , 0664 

7 , 0665 
7 , 0666 
7 , 0667 

7 , 0670 
7 , 0671 
7 , 0672 

7 , 0673 
7 , 0674 
7 , 0675 

7 , 0676 
7, 0677 
7, 0700 

7, 0701 
7, 0702 
7, 0703 

7, 0704 
7, 0705 
7, 0706 

7, 0707 
7, 0710 
7, 0711 

7, 0712 
7, 0713 
7, 0714 

7, 0715 
7, 0716 
7, 0717 

7, 0720 
7, 0721 
7, 0722 

7 , 0723 
7 , 0724 
7 , 0725 

7 , 0726 
7 , 0727 
7 , 0730 

7 , 0731 
7 , 0732 
7 , 0733 

7 , 0734 
7 , 0735 
7 , 0736 

7 , 0737 
7 , 0740 
7 , 0741 

7 , 0742 
7 , 0743 
7, 0744 

7 , 0745 
7 , 0746 
7 , 0747 

7 , 0750 
7 , 0751 
7 , 0752 

7, 0753 
7, 0754 
7, 0755 

7, 0756 
7, 0757 
7, 0760 



00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 



DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 



45 
45 

46 
46 
46 

41 
41 
41 

48 
48 
48 

49 
49 
49 

50 
50 
50 

51 
51 
51 

52 
52 
52 

53 
53 
53 

54 
54 
54 

55 
55 
55 

56 
56 
56 

51 
51 
51 

58 
58 
58 

59 
59 
59 

60 
60 
60 

61 
61 
61 

62 
62 
62 

63 
63 
63 

64 
64 
64 

65 
65 
65 

66 
66 
66 



spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 



16761 
16162 
16763 

16764 
16765 
16766 

16767 
16770 
16771 

16772 
16773 
16774 

16775 
16776 
16777 

17000 
17001 
17002 

17003 
17004 
17005 

17006 
17007 
17010 

17011 
17012 
17013 

17014 
17015 
17016 

17017 
17020 
17021 

17022 
17023 
17024 

17025 
17026 
17027 

17030 
17031 
17032 

17033 
17034 
17035 

17036 
17037 
17040 

17041 
17042 
17043 

17044 
17045 
17046 

17047 
17050 
17051 

17052 
17053 
17054 

17055 
17056 
17057 

17060 
17061 
17062 



7, 0761 
7 , 0762 
7 , 0763 

7 , 0764 
7, 0765 
7, 0766 

7, 0767 
7, 0770 
7, 0771 

7, 0772 
7, 0773 
7, 0774 

7, 0775 
7, 0776 
7, 0777 

7, 1000 

7 . 1001 

7 . 1002 

7 . 1003 

7 . 1004 

7 . 1005 

7, 1006 

7 , 1007 

7 . 1010 

7 . 1011 

7 . 1012 
7 , 1013 

7 . 1014 

7 . 1015 
7 , 1016 

7 , 1017 
7, 1020 
7 , 1021 

7, 1022 
7 , 1023 

7 . 1024 

7 . 1025 
7, 1026 
7 , 1027 

7 . 1030 

7 . 1031 

7 . 1032 

7 . 1033 

7 . 1034 

7 . 1035 

7 . 1036 

7 . 1037 

7 . 1040 

7 . 1041 

7 . 1042 

7 . 1043 

7 . 1044 

7 . 1045 

7 . 1046 

7 . 1047 
7, 1050 

7 . 1051 

7 . 1052 
7, 1053 
7, 1054 

7, 1055 
7, 1056 
7 , 1057 

7 . 1060 

7 . 1061 

7 . 1062 



00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 



DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 



61 
61 
61 

68 
68 
68 

69 
69 
69 

10 
10 
10 

11 
11 
11 

12 
12 
12 

13 
13 
13 

14 
14 
14 

15 
15 
15 

16 
16 
16 



18 
18 
18 

19 
19 
19 

80 
80 
80 

81 
81 
81 

82 
82 
82 

83 
83 
83 

84 
84 
84 

85 
85 
85 

86 
86 



81 
81 
81 

88 
88 
88 



spars compon&nt 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 



17063 
17064 
17065 

17066 
17067 
17070 

17071 
17072 
17073 

17074 
17075 
17076 

17077 
17100 
17101 

17102 
17103 
17104 

17105 
17106 
17107 

17110 
17111 
17112 

17113 
17114 
17115 

17116 
17117 
17120 

17121 
17122 
17123 



7 . 1063 

7 . 1064 

7 . 1065 

7, 1066 
7 , 1067 

7 . 1070 

7 . 1071 

7 . 1072 

7 . 1073 

7 . 1074 

7 . 1075 

7 . 1076 

7 . 1077 

7 . 1100 

7 . 1101 

7 . 1102 

7 . 1103 

7 . 1104 

7 . 1105 

7 . 1106 
7,1107 

7 . 1110 

7 . 1111 

7 . 1112 

7 . 1113 

7 . 1114 

7 . 1115 

7 . 1116 

7 . 1117 

7 . 1120 

7 . 1121 

7 . 1122 

7 . 1123 



00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 

00000 1 



DS 


to 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


to 


DS 


to 


DS 


%0 


DS 


%0 


DS 


to 


DS 


%0 


DS 


%0 


DS 


to 


DS 


%0 


DS 


%0 


DS 


to 


DS 


%0 


DS 


%0 



DS %0 

DS %0 

DS %0 

end of mixed noun address table 



89 
89 
89 

90 
90 
90 

91 
91 
91 

92 
92 
92 

93 
93 
93 

94 
94 
94 

95 
95 
95 



91 
91 
91 

98 
98 
98 

99 
99 
99 



spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 

spare component 



MIXED NOUN SCALE FACTOR ROUTINE TABLE (RUTMXTAB) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 278. 



currently, the table is not populated * * 











ROTMXTAB EQO 


* 


7124 


7 


1124 


00000 


1 


DS 


%0 


7125 


7 


1125 


00000 


1 


DS 


%0 


7126 


7 


1126 


00000 


1 


DS 


%0 


7127 


7 


1127 


00000 


1 


DS 


%0 


7130 


7 


1130 


00000 


1 


DS 


%0 


7131 


7 


1131 


00000 


1 


DS 


%0 


7132 


7 


1132 


00000 


1 


DS 


%0 


7133 


7 


1133 


00000 


1 


DS 


%0 


7134 


7 


1134 


00000 


1 


DS 


%0 


7135 


7 


1135 


00000 


1 


DS 


%0 


7136 


7 


1136 


00000 


1 


DS 


%0 


7137 


7 


1137 


00000 


1 


DS 


%0 


7140 


7 


1140 


00000 


1 


DS 


%0 


7141 


7 


1141 


00000 


1 


DS 


%0 


7142 


7 


1142 


00000 


1 


DS 


%0 


7143 


7 


1143 


00000 


1 


DS 


%0 


7144 


7 


1144 


00000 


1 


DS 


%0 


7145 


7 


1145 


00000 


1 


DS 


to 


7146 


7 


1146 


00000 


1 


DS 


%0 


7147 


7 


1147 


00000 


1 


DS 


%0 


7150 


7 


1150 


00000 


1 


DS 


%0 


7151 


7 


1151 


00000 


1 


DS 


%0 


7152 


7 


1152 


00000 


1 


DS 


%0 


7153 


7 


1153 


00000 


1 


DS 


%0 


7154 


7 


1154 


00000 


1 


DS 


%0 


7155 


7 


1155 


00000 


1 


DS 


%0 


7156 


7 


1156 


00000 


1 


DS 


%0 


7157 


7 


1157 


00000 


1 


DS 


%0 


7160 


7 


1160 


00000 


1 


DS 


to 


7161 


7 


1161 


00000 


1 


DS 


%0 


7162 


7 


1162 


00000 


1 


DS 


%0 



40 - 


- spare 


41 - 


- spare 


42 - 


- spare 


43 - 


- spare 


44 - 


- spare 


45 - 


- spare 


46 - 


- spare 


41 - 


- spare 


48 - 


- spare 


49 - 


- spare 


50 - 


- spare 


51 - 


- spare 


52 - 


- spare 


53 - 


- spare 


54 - 


- spare 


55 - 


- spare 


56 - 


- spare 


51 - 


- spare 


58 - 


- spare 


59 - 


- spare 


60 - 


- spare 


61 - 


- spare 


62 - 


- spare 


63 - 


- spare 


64 - 


- spare 


65 - 


- spare 


66 - 


- spare 


61 - 


- spare 


68 - 


- spare 


69 - 


- spare 


10 - 


- spare 



11163 
17164 
17165 
17166 
17167 
17170 
17171 
17172 
17173 
17174 
17175 
17176 
17177 
17200 
17201 
17202 
17203 
1720 4 
17205 
1720 6 
17207 
17210 
17211 
17212 
17213 
17214 
17215 
17216 
17217 



7, 1163 
7 , 1164 
7 , 1165 
7 , 1166 
7, 1167 
7 , 1170 
7 , 1171 
7 , 1172 
7 , 1173 
7 , 1174 
7 , 1175 
7 , 1176 
7 , 1177 
7, 1200 
7 , 1201 
7 , 1202 
7, 1203 

7 . 1204 

7 . 1205 

7 . 1206 

7 . 1207 
7, 1210 

7 . 1211 

7 . 1212 

7 . 1213 

7 . 1214 

7 . 1215 

7 . 1216 

7 . 1217 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



end of mixed 



DS 


%0 


DS 


%0 


DS 


%0 


DS 


to 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


DS 


%0 


noun 


scale 



11 - 


- spare 


12 - 


- spare 


13 - 


- spare 


14 - 


- spare 


15 - 


- spare 


16 - 


- spare 


77 - 


- spare 


18 - 


- spare 


19 - 


- spare 


80 - 


- spare 


81 - 


- spare 


82 - 


- spare 


83 - 


- spare 


84 - 


- spare 


85 - 


- spare 


86 - 


- spare 


81 - 


- spare 


88 - 


- spare 


89 - 


- spare 


90 - 


- spare 


91 - 


- spare 


92 - 


- spare 


93 - 


- spare 


94 - 


- spare 


95 - 


- spare 


96 - 


- spare 


91 - 


- spare 


98 - 


- spare 


99 - 


- spare 



factor routine table 



BANK42_4 EQU 

; extended verb tables 



ORG 
INCL 



BANK43_1 
bank43_l . asm 



; COLOSSVS pp. 230-232 



DISPLAY ROUTINES ( file : bank43_l . asm) 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, pp. 230. 



GOEXTVB 



EXTENDED VERBS 



Adapted from the AGC Block II COLOSSUS rev 249 assembly listing, 
Oct 28, 1968, p. 230. 



GOEXTVB 



20000 10,0000 2 0,0130 1 

20001 10,0001 10,6002 















LST2FAN 


20002 


10 


0002 





10 


6076 





20003 


10 


0003 





10 


6076 





20004 


10 


0004 





10 


6076 





20005 


10 


0005 





10 


6076 





20006 


10 


0006 





10 


6076 





20007 


10 


0007 





10 


6076 





20010 


10 


0010 





10 


6076 





20011 


10 


0011 





10 


6076 





20012 


10 


0012 





10 


6076 





20013 


10 


0013 





10 


6076 





20014 


10 


0014 





10 


6076 





20015 


10 


0015 





10 


6076 





20016 


10 


0016 





10 


6076 





20017 


10 


0017 





10 


6076 





20020 


10 


0020 





10 


6076 





20021 


10 


0021 





10 


6076 





20022 


10 


0022 





10 


6076 





20023 


10 


0023 





10 


6076 





20024 


10 


0024 





10 


6076 





20025 


10 


0025 





10 


6076 





20026 


10 


0026 





10 


6076 





20027 


10 


0027 





10 


6076 





20030 


10 


0030 





10 


6076 





20031 


10 


0031 





10 


6076 





20032 


10 


0032 





10 


6076 





20033 


10 


0033 





10 


6076 





20034 


10 


0034 





10 


6076 





20035 


10 


0035 





10 


6076 





20036 


10 


0036 





10 


6076 





20037 


10 


0037 





10 


6076 





20040 


10, 


0040 





10, 


6076 






EQU 


* 


INDEX 


MPAC 


TC 


LST2FAN 


EQU 


* 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 



verb-40 is in MPAC 
fan as before 



VB40 - 


- spare 


VB41 - 


- spare 


VB42 - 


- spare 


VB43 - 


- spare 


VB4 4 - 


- spare 


VB45 - 


- spare 


VB4 6 - 


- spare 


VB41 - 


- spare 


VB4 8 - 


- spare 


VB4 9 - 


- spare 


VB5 - 


- spare 


VB51 - 


- spare 


VB52 - 


- spare 


VB53 - 


- spare 


VB5 4 - 


- spare 


VB55 - 


- spare 


VB5 6 - 


- spare 


VB51 - 


- spare 


VB5 8 - 


- spare 


VB5 9 - 


- spare 


VB60 - 


- spare 


VB61 - 


- spare 


VB62 - 


- spare 


VB63 - 


- spare 


VB64 - 


- spare 


VB65 - 


- spare 


VB66 - 


- spare 


VB61 - 


- spare 


VB68 - 


- spare 


VB69 - 


- spare 


VB10 - 


- spare 



20041 


10 


0041 





10 


6076 





20042 


10 


0042 





10 


6076 





20043 


10 


0043 





10 


6076 





20044 


10 


0044 





10 


6076 





20045 


10 


0045 





10 


6076 





20046 


10 


0046 





10 


6076 





20047 


10 


0047 





10 


6076 





20050 


10 


0050 





10 


6076 





20051 


10 


0051 





10 


6076 





20052 


10 


0052 





10 


6076 





20053 


10 


0053 





10 


6076 





20054 


10 


0054 





10 


6076 





20055 


10 


0055 





10 


6076 





20056 


10 


0056 





10 


6076 





20057 


10 


0057 





10 


6076 





20060 


10 


0060 





10 


6076 





20061 


10 


0061 





10 


6076 





20062 


10 


0062 





10 


6076 





200 63 


10 


00 63 





10 


6076 





20064 


10 


0064 





10 


6076 





20065 


10 


0065 





10 


6076 





20066 


10 


0066 





10 


6076 





20067 


10 


0067 





10 


6076 





20070 


10 


0070 





10 


6076 





20071 


10 


0071 





10 


6076 





20072 


10 


0072 





10 


6076 





20073 


10 


0073 





10 


6076 





20074 


10 


0074 





10, 


6076 





20075 


10, 


0075 





10, 


6076 






ALM_E WD 

20076 10,0076 2,4701 

20077 10,0077 1,3653 1 GOPIN 
20100 10,0100 05067 



TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM END 


TC 


ALM_END 


EQV 


* 


TC 


F ALTON 


TC 


POSTJVMP 


FCADR 


PINBRNCH 



VB71 - 


- spare 


VB72 - 


- spare 


VB73 - 


- spare 


VB74 - 


- spare 


VB75 - 


- spare 


VB7 6 - 


- spare 


VB7 7 - 


- spare 


VB78 - 


- spare 


VB79 - 


- spare 


VB8 - 


- spare 


VB81 - 


- spare 


VB82 - 


- spare 


VB83 - 


- spare 


VB8 4 - 


- spare 


VB85 - 


- spare 


VB8 6 - 


- spare 


VB87 - 


- spare 


VB8 8 - 


- spare 


VB8 9 - 


- spare 


VB90 - 


- spare 


VB91 - 


- spare 


VB92 - 


- spare 


VB93 - 


- spare 


VB94 - 


- spare 


VB95 - 


- spare 


VB9 6 - 


- spare 


VB97 - 


- spare 


VB98 - 


- spare 


VB99 - 


- spare 



turn on operator error light 



BANK43_2 



; TEST JOBS & TASKS 



BANKFF_ 6 



MAJOR MODES 



ORG 



POO CMC IDLE PROGRAM 
Does nothing 



POO EQV * 

; Start any jobs or tasks needed at AGC initialization. 



22000 11,0000 3 11,6004 

22001 11,0001 1,2232 

22002 11,0002 22005 1 

22003 11,0003 1,2723 



CAF 

TC 

CADR 

TC 



timel 
WAITLIST 
taskl 
ENDOFJOB 



add a test task 
14-bit task address 



22004 11, 0004 



; TEST CODE 
01750 1 timel 
taskl 



task started by POO 



22005 11,0005 3 11,6011 1 

22006 11,0006 1,3162 1 

22007 11,0007 22012 1 

22010 11,0010 1,2413 



EQV 
XCH 
TC 
CADR 

TC 



priol 
NOV AC 
jobl 

TASKOVER 



10 seconds 

job priority 

14 bit job address 



; TEST CODE - job started by task 
22011 11,0011 00003 1 priol DS %3 



jobl 



22012 11,0012 3 1,2050 



EQV 

CAF 



ZERO 



lowest priority 



22013 11,0013 6 0,0053 1 

22014 11,0014 6 1,2051 1 

22015 11,0015 5 0,0053 1 

22016 11,0016 1,2723 



AD 


i53 


AD 


ONE 


TS 


%53 


TC 


ENDOFJOB 



incr data at this address 



P01 DEMO PROGRAM 

Calls pinball: verb 1, noun 4. 



22017 11, 0017 

22020 11,0020 

22021 11,0021 



00204 1 nvcodel 

22024 1 restartl_addr 

00042 1 toadrl 



22022 11,0022 3 11,6021 1 

22023 11,0023 5 0,0132 1 



P01_restart 



22024 11,0024 3 11,6017 1 

22025 11,0025 2,4503 



22026 11,0026 11,6030 1 

22027 11,0027 1,2723 



22030 11,0030 3 11,6020 

22031 11,0031 2,5001 



22032 11,0032 1,2723 



DS 


%0204 


DS 


P01 restart 


DS 


%42 


EQV 


* 


CAF 


toadrl 


TS 


MPAC+2 


EQV 


, 


CAF 


nvcodel 


TC 


NVSVB 


TC 


*+2 


TC 


ENDOFJOB 


CAF 


restart 1 addr 


TC 


NVSVBVSY 


TC 


ENDOFJOB 



verb 01 . noun 4 



load 'machine address to be specified ' 



display busy 

execution of verb/noun succeeded 



go to sleep until display released 
error : another job is already waiting 



P02 DEMO PROGRAM 

Calls pinball : verb 21 , noun 2 . 

Sleeps if DSKY is busy until KEYREL . Executes verb 21, noun 2 to do 
an external load . Then it sleeps wi th ENDIDLE until the user loads 
the data or terminatest the load with PROCEED or TERMINATE. 
NOTE : routines that call ENDIDLE must be in fixed-swi tchable memory 



22033 


11 


0033 






15202 


1 


nvcode2 


DS 


%05202 


22034 


11 


0034 




22040 





restart 2 addr 


DS 


P02_restart 


22035 


11 


0035 






10042 


1 


tcadr2 

P02 


DS 
EQV 


.42 


22036 


11 


0036 


3 


11 


6035 


1 




CAF 


tcadr2 


22037 


11 


0037 


5 





0132 


1 


P02_restart 


TS 
EQV 


MPAC+2 

* 


22040 


11 


0040 


3 


11 


6033 


1 




CAF 


nvcode2 


22041 


11 


0041 





2 


4503 







TC 


NVSVB 


22042 


11 


0042 





11 


6044 


1 




TC 


* + 2 


22043 


11 


0043 





11 


6047 


1 




TC 


P02_wait 


22044 


11 


0044 


3 


11 


6034 







CAF 


restart 2 ad 


22045 


11 


0045 





2 


5001 







TC 


NVSVBVSY 


22046 


11 


0046 





1 


2723 





P02_wait 


TC 
EQV 


ENDOFJOB 


22047 


11 


0047 





2 


4541 







TC 


ENDIDLE 


22050 


11 


0050 





11 


6060 


1 




TC 


P02_ter 


22051 


11 


0051 





11 


6055 


1 




TC 


P02_pwd 


22052 


11 


0052 


3 


1 


2051 


1 




CAF 


ONE 


22053 


11 


0053 


5 





0043 







TS 


%43 


22054 


11 


0054 





1 


2723 





P02_pwd 


TC 
EQV 


ENDOFJOB 

* 


22055 


11 


0055 


3 


1 


2052 


1 




CAF 


TWO 


22056 


11 


0056 


5 





0043 







TS 


%43 


22057 


11 


0057 





1 


2723 





P02_ter 


TC 
EQV 


ENDOFJOB 

* 


22060 


11 


0060 


3 


1 


2053 







CAF 


THREE 


22061 


11 


0061 


5 





0043 







TS 


%43 


22062 


11 


0062 





1 


2723 







TC 


ENDOFJOB 



verb 21 . noun 02 



display busy 

execution of verb/noun succeeded 



go to sleep until display released 
another job is already sleeping 



terminate 

proceed wi thout data 

data in 

set loc=l 



proceed wi thout data 
set loc=2 



terminate 
set loc=3 



P03 DEMO PROGRAM 



Nearly Identical to P02, except that the job does not go to sleep 
waiting for the load with ENDIDLE . Instead, it busy-waits on LOADSTAT . 
NOTE: routines that call ENDIDLE must be in fixed-switchable memory 



22063 11, 0063 

22064 11,0064 

22065 11, 0065 



05202 1 nvcode3 DS 

22010 restart3_addr DS 
00042 1 tcadr3 DS 



%05202 

P03_restart 

%42 



verb 21, noun 02 



22066 11,0066 3 11,6065 1 
22061 11,0061 5 0,0132 1 



EQV 

CAF 
TS 



tcadr3 
MPAC+2 



P03_restart 



22010 11,0010 3 11,6063 

22011 11,0011 2,4503 



EQV 

CAF 
TC 



nvcode3 
NVSVB 



22012 11,0012 11,6014 1 

22013 11,0013 11,6011 1 



TC 
TC 



* + 2 
P03_wait 



display busy 

execution of verb/noun succeeded 



22014 11,0014 3 11,6064 

22015 11,0015 2,5001 

22016 11,0016 1,2123 



CAF 

TC 

TC 



restart3_addr 

NVSVBVSY 

ENDOFJOB 



go to sleep until display released 
another job is already sleeping 

















P03 wait 


22011 


11 


0011 


1 





0503 







22100 


11 


0100 





11 


6115 


1 




in 
















22101 


11 


0101 





11 


6101 


1 




22102 


11 


0102 





11 


612 


1 




22103 


11 


0103 


3 





0000 


1 





EQV 

CCS 
TC 

TC 
TC 
NOOP 



LOADSTAT 
P03_pwd 



P03_yield 
P03_ter 



>0, verb "proceed w/o data" has been keyed 

+0 , waiting for data 

<0, verb "terminate" has been keyed in 

—0, load has been completed 



22104 11,0104 3 1,2051 1 

22105 11,0105 5 0,0043 

22106 11,0106 1,2123 



CAF 

TS 

TC 



ONE 
%43 
ENDOFJOB 



data in 
set loc=l 



22101 11, 0101 3 

22110 11, 0110 6 

22111 11,0111 5 



P03_yield 



1,2051 1 
0, 0043 
0, 0043 



EQV 

CAF 

AD 

TS 



ONE 
%43 
%43 



incr loc while busy-waiting 



22112 11,0112 1 0,0301 1 

22113 11,0113 1,2133 1 

22114 11,0114 11,6011 1 



CCS 

TC 

TC 



new Job 
CHANG 1 
P03_wait 



yield to higher priority job? 

yes 

no, keep busy-waiting 



P03_pwd 



22115 11,0115 3 1,2052 1 

22116 11,0116 5 0,0043 
22111 11,0111 1,2123 



EQV 

CAF 

TS 

TC 



TWO 
%43 
ENDOFJOB 



proceed without data 
set loc=2 



22120 11,0120 3 1,2053 

22121 11,0121 5 0,0043 

22122 11,0122 1,2123 



EQV 

CAF 

TS 

TC 



THREE 

%43 

ENDOFJOB 



terminate 
set loc=3 



P0 4 DEMO PROGRAM 

Calls pintail: monitor verb 11, noun 04. 



22123 11, 0123 

22124 11, 0124 

22125 11, 0125 

22126 11, 0126 



02604 1 nvcode4 DS 

22131 1 restart4_addr DS 

00042 1 tcadr4 DS 

; monoption DS 

02206 1 mon_option DS 



%02604 
P04_restart 

%42 
%6 
%2206 



verb 11, noun 04 



22121 11,0121 3 11,6125 1 
22130 11,0130 5 0,0132 1 



EQV 

CAF 
TS 



t cadr4 
MPAC+2 



load 'machine address to be specified' 



P04_restart 



22131 11,0131 3 11,6126 1 

22132 11,0132 5 0,0564 



EQV 

CAF 
TS 



monoption 
NVSVB_L 



paste verb 09, blank R2 , R3 



22133 11,0133 3 11,6123 1 

22134 11,0134 2,4501 1 



CAF 
TC 



nvcode4 
NVMONOPT 



was NVSUB 



22135 11,0135 11,6131 1 

22136 11,0136 1,2123 



TC 
TC 



* + 2 
ENDOFJOB 



display busy 

execution of verb/noun succeeded 



22131 11,0131 3 11,6124 
22140 11,0140 2,5001 



CAF 
TC 



restart 4_addr 
NVSVBVSY 



go to sleep until display released 



22141 11,0141 1,2123 



ENDOFJOB 



error: another job Is already waiting 



P78 DEMO PROGRAM 



22142 11, 0142 3 

22143 11, 0143 6 

22144 11, 0144 6 

22145 11, 0145 5 

22146 11, 0146 



1. 2050 
0, 0051 

1. 2051 

0, 0051 

1, 2723 



EQO 


* 


CAF 


ZERO 


AD 


%51 


AD 


ONE 


TS 


%51 


TC 


ENDOFJOB 



incr data at this address 



PI 9 DEMO PROGRAM 



22147 


11 , 


0147 


3 


1, 


2050 





22150 


11, 


0150 


6 


0, 


0052 





22151 


11, 


0151 


6 


1, 


2051 


1 


22152 


11, 


0152 


5 


0, 


0052 





22153 


11, 


0153 





1, 


2723 






EQO 


* 


CAF 


ZERO 


AD 


%52 


AD 


ONE 


TS 


%52 


TC 


ENDOFJOB 



incr data at this address 



Assembly complete . Errors = 



Symbol table: 

BANKO 

MAXDELAY 

TSKADDR 

WL_IN_saveQ 

WL_AT_saveQ 

WL_AT_timeLeft 

WL_T3_oldBank 

WL_ST_newTime 

HL_RT_runAddr 

WL_RM_taskPtr2 

WL_IS_newTime 

WL_IS_taskPtr 

MAXJOBS 

MP AC 

BANKSET 

JOBPRIOBASE 

JREC2 

JREC5 

LOCCTR 

new Job 

EX_JW_CADR 

EX_JW_jobPtr2 

EX_AJ_loopCnt 

EX_AJ_field 

EX_IN_loopCnt 

EX_IN_field 

EX_MN_field 

EX_RM_jobPtr 

EX_RM_loopCnt 

EX_RM_findx 

EX_IS_newLoc 

EX_IS_jobPtr2 

I TEMPI 

I TEMP 2 

I TEMP 3 

NEWPRIO 

I TEMP 5 

NEWL0CP1 

RUPTREG2 

KEY TEMPI 

FLAGFILL 

INTB15P 

BLANKRET 

WDRET 

ADDRWD 

CHAR 

FIXLOC 

SGNON 

DECTEM 

SF TEMPI 

SFTEMP2 

SIGNRET 

INDEXLOC 

MP TEMP 



000057 
027340 
000001 
000075 
000100 
000103 
000106 
000111 
000114 
000117 
000122 
000125 
000007 
000130 
000141 
000144 
000177 
000246 
000300 
000307 
000312 
000315 
000320 
000323 
000326 
000331 
000334 
000337 
000342 
000345 
000350 
000353 
000356 
000357 
000360 
000360 
003 62 
000363 
000366 
000370 
000405 
000411 
000411 
000412 
000413 
000414 
000415 
000417 
000417 
000420 
000421 
000422 
000425 
000432 



MAXTASK 

MAXTIMEOUT 

TRECSZ 

WL_IN_taskPtr 

HL_AT_taskPtr 

WL_AT_loopCnt 

WL_ ST_saveQ 

WL_ST_loopCnt 

WL_RM_saveQ 

WL_RM_loopCnt 

WL_IS_newAddr 

«L_IS_taskPtr2 

JRECSZ 

MODE 

PUSHLOC 

JRECO 

JREC3 

JREC6 

CHGJOB 

EX_JW_saveQ 

EX_JW_foundit 

EX_JW_fndIndx 

EX_AJ_jobPrio 

EX_AJ_findx 

EX_IN_jobPtr 

EX_IN_findx 

EX_MN_findx 

EX_RM_jobPtr2 

EX_RM_retval 

EX_IS_newPrio 

EX_IS_saveQ 

EX_IS_loopCnt 

WAITEXIT 

WAITBANK 

RVPTSTOR 

I TEMP 4 

NEWLOC 

NEW JOB 

RVPTREG3 

DSRVPTEM 

EMDOT 

D SEX IT 

INTBIT15 

DECRET 

POLISH 

ERCNT 

OVFIND 

NOVNTEM 

SGNOFF 

HITEMIN 

LOWTEMIN 

BVF 

SWWORD 

DMPNTEMP 



000007 
010440 
000002 
000076 
000101 
000104 
000107 
000112 
000115 
000120 
000123 
000126 
000015 
000137 
000142 
000145 
000214 
000263 
000001 
000310 
000313 
000316 
000321 
000324 
000327 
000332 
000335 
000340 
000343 
000346 
000351 
000354 
000356 
000357 
000360 
000361 
000362 
000364 
000367 
000370 
000405 
000411 
000412 
000412 
000414 
000414 
000416 
000417 
000420 
000420 
000421 
000425 
000425 
000432 



MAXVAL 

TSKTIME 

WL_taskList 

«L_IN_loopCnt 

WL_AT_newT ime 

WL_T3_saveQ 

WL_ST_taskPtr 

WL_RT_saveQ 

WL_RM_taskPtr 

WL_RM_retval 

WL_IS_saveQ 

«L_IS_loopCnt 

EXcur rent Job 

LOC 

PRIORITY 

JREC1 

JREC4 

EX_jobList 

KEEPJOB 

EX_JW_loopCnt 

EX_JW_jobPtr 

EX_AJ_saveQ 

EX_AJ_jobPtr 

EX_IN_saveQ 

EX_IN_recIndex 

EX_MN_runAddr 

EX_RM_saveQ 

EX_RM_savePtr 

EX_RM_field 

EX_IS_newPrioB 

EX_IS_jobPtr 

FLAGWRD5 

EXECTEM1 

EXECTEM2 

WAIT ADR 

WAIT TEMP 

I TEMP 6 

RVPTREG1 

RVPTREG4 

STATE 

STATEXIT 

EX ITEM 

WRDRET 

_2122REG 

UPDATRET 

DECOVNT 

VBUF 

DISTEM 

NVTEMP 

CODE 

MIXTEMP 

BVF 2 

SWBIT 

DOTINC 



037777 
000000 
000057 
000077 
000102 
000105 
000110 
000113 
000116 
000121 
000124 
000127 
000130 
000140 
000143 
000162 
000231 
000300 
000000 
000311 
000314 
000317 
000322 
000325 
000330 
000333 
000336 
000341 
000344 
000347 
000352 
000355 
000356 
000357 
000360 
000361 
000363 
000365 
000370 
000371 
000407 
000411 
000412 
000412 
000414 
000414 
000417 
000417 
000420 
000421 
000422 
000430 
000426 
000433 



DVSIGN 

DOTRET 

WDCNT 

MAXDVSW 

MIXBR 

DSREL 

ID ADD TEM 

TEM4 

FREERET 

SEPMNRET 

UN AD TEM 

ID AD 2 TEM 

DEXDEX 

RTNSAVER 

NVWORD 

CADRFLSH 

FAILREG 

DSPCNT 

VERBREG 

YREG 

YREGLP 

LOTEMOUT 

REQRET 

NOUT 

MONSAVE1 

NVQTEM 

CADRSTOR 

DSP TEM1 

NORMTEM1 

DSRUPTSW 

DK_IN_savsQ 

KP_MPAC 

REQ_Q 

SFRUTMIX_L 

GTSF_RET 

NVSUB_A 

FLASHRET 

SHORTMP_A 

ADDRWD1 

KEYRET 

BJRET 

PJA 

BCA 

MBCA 

EXTENDER 

ERRUPT 

VPRUPT 

goER 

goVP 

NEG1 

ONE 

FOUR 

SEVEN 

BIT15 

BIT12 

BIT9 

BIT6 

BIT3 

LOW7 

OCT1400 

CLRMEM 

CLRMEM_ VAL 

CLRMEM_ WC 

goMAIN 

V3 7XEQ 

WL_tskLstStart 

WLnumTasksl 

WL_maxT±meOut 

WAITLIST 

WL_AT_mkFirst 

WL_AT_done 

WL_RT_loop 

WL_RT_done 

HL_ST_setT3 

WLinsert 

WL_IS_insRec 

WL_RM_loop 

EX_DUMMY_PRIO 

EX_johRecS±ze 

EX_jobLstEndl 

EXchangeJob 

EX_MN_ find Job 

EX_MN_runIt 

CHANG1 

EX_MN_mvRac 

JOB WAKE 

EX_JW_bumpPt r 



000433 
000434 
000434 
000435 
000435 
000436 
000437 
000441 
000441 
000441 
000443 
000446 
000437 
000442 
000452 
000455 
000460 
000465 
000470 
000473 
000476 
000477 
000502 
000505 
000510 
000526 
000531 
000534 
000534 
000543 
000546 
000551 
000554 
000557 
000562 
000565 
000570 
000573 
000576 
000601 
000604 
000607 
000612 
000615 
005777 
002010 
002024 
002036 
002043 
002046 
002051 
002054 
002057 
002062 
002065 
002070 
002073 
002076 
002101 
002104 
002107 
002050 
002123 
002126 
002153 
002175 
002200 
002203 
002232 
002306 
002343 
002364 
002414 
002461 
002473 
002552 
002603 
002643 
002646 
002651 
002654 
002662 
002720 
002733 
002757 
003003 
003041 



ESCAPE 

DVNORMCT 

INREL 

POLYCNT 

TEM1 

TEM2 

TEM3 

LSTPTR 

DSPWDRET 

TEM5 

NNTYPTEM 

IDAD3TEM 

DEX1 

TERM1 TMP 

MARXNV 

CADRMARK 

MINDEX 

DSPCOVNT 

NOUNREG 

ZREG 

HITEMOUT 

MODREG 

LOADSTAT 

NOUNCADR 

M0NSAVE2 

NVBNKTEM 

DSPLIST 

DSPTEM2 

OPTIONX 

T4RET 

LXCH_LPRET 

DPTEST_A 

SETNCADR_Q 

SFCONUM_L 

FR_RETQ 

ENDIDLE_L 

PASTE_TMP 

SHORTMP_OVFL 

MATH_Q 

SAVEQ 

PJBANK 

BCBANK 

MBCBANK 

DCBANK 

GOPROG 

DSRVPT 

endRVPT 

goDS 

of bit 

NEG2 

TWO 

FIVE 

TEN 

BIT14 

BIT11 

BITS 

BIT5 

BIT2 

bankAddr 

NOVTCON 

CLRMEM_CHK 

TIME3 

V3 7BANK 

SLAP1 

V37XEQC 

WL_tskLstEnd 

WLmaxVal 

WL_initWL 

WL_AT_noOvf 

WL_AT_loop 

WL_TIME3task 

WL_RT_runIt 

WL_schedTask 

WL_ST_noTask 

WL_IS_loop 

WL_IS_done 

WL_RM_done 

EX_SLEEP_PRIO 

EX_jobLstStart 

EXnumJobs 

EX_keepJob 

EX_MN_sstFlg 

ENDOFJOB 

EX_MN_notBank 

EX_MN_loop3 

EX_JW_loop 

EX_J«_done 



000433 
000434 
000434 
000435 
000436 
000437 
000440 
000441 
000441 
000442 
000444 
000447 
000440 
000430 
000453 
000456 
0004 63 
000466 
000471 
000474 
000476 
000500 
000503 
000506 
000511 
000527 
000532 
000537 
000537 
000544 
000547 
000552 
000555 
000560 
000563 
000566 
000571 
000574 
000577 
000602 
000605 
000610 
000613 
000616 
002000 
002014 
002030 
002037 
002044 
002047 
002052 
002055 
002060 
002063 
002066 
002071 
002074 
002077 
002102 
002105 
002113 
000037 
002124 
002126 
002166 
002176 
002201 
002204 
002264 
002311 
002347 
002411 
002417 
002466 
002510 
002562 
002636 
002644 
002647 
002652 
002655 
002677 
002723 
002750 
002763 
003015 
003056 



ENTRET 

ESCAPE2 

MAT INC 

DSPMMTEM 

POLYRET 

DSMAG 

COUNT 

RELRET 

SEPSCRET 

NOUN ADD 

I DAD ITEM 

RUTMXTEM 

DEX2 

RESTREG 

NVSAVE 

TEMPFLSH 

MMNUMBER 

DECBRNCH 

XREG 

XREGLP 

ZREGLP 

DSPLOCK 

CLPASS 

MONSAVE 

DSP TAB 

VERBSAVE 

EXTVRACT 

DSPTEMX 

MMTEMP 

DSPOUTRET 

LXCH_A 

DPTEST_Q 

ALLDC_OC_Q 

BLANKSUB_Q 

NVSUB_L 

NBSUBSY1_L 

NEWMODEA_Q 

SHORTMP_OVFH 

PRSHRTMP_Q 

BJBANK 

PJRET 

BCRET 

MBCRET 

DCRET 

T3RUPT 

KEYRUPT 

goT3 

goKEY 

NEGO 

ZERO 

THREE 

SIX 

ELEVEN 

BIT13 

BIT10 

BIT7 

BIT4 

BIT1 

lowAddr 

POSMAX 

CLRMEM_ WORD 

CLRMEM_BADDR 

SAMASK 

goMMchange 

WL_taskRecSize 

WLnumTasks 

WLmaxDelay 

WL_IN_loop 

WL_AT_chkOrder 

WL_AT_sohTsk 

WLrunTasks 

TASKOVER 

WL_ST_loop 

WL_ST_done 

WL_IS_bumpPtr 

WLremove 

EX_WAKE_PRIO 

EX_jobCurStart 

EX_jobLstEnd 

EXnumJobsl 

EX_exec 

EX_MN_jrunJob 

JOBSLEEP 

EX_MN_saveIt 

EX_MN_dons3 

EX_JW_moveRec 

EX_JW_return 



000433 
000434 
000435 
000435 
000436 
000437 
000440 
000441 
000441 
000442 
000445 
000450 
000441 
000451 
000454 
000457 
000464 
000467 
000472 
000475 
000477 
000501 
000504 
000507 
000512 
000530 
000533 
000537 
000542 
000545 
000550 
000553 
000556 
000561 
000564 
000567 
000572 
000575 
000600 
000603 
000606 
000611 
000614 
000617 
002004 
002020 
002034 
002041 
002045 
002050 
002053 
002056 
002061 
002064 
002067 
002072 
002075 
002100 
002103 
002106 
002116 
000037 
002125 
002147 
002174 
002177 
002202 
002213 
002270 
002333 
002362 
002413 
002436 
002470 
002541 
002565 
002642 
002645 
002650 
002653 
002656 
002701 
002725 
002752 
003002 
003035 
003074 



SPVAC 

EX_SP_testFlg 

NOVAC 

EX_AJ_testFlg 

EX_IN_loopl 

EX_IN_done 

EX_FI_bumpPtr 

EXremove 

EX_RM_loop2 

EX_RM_done3 

dumJob2 

DODXCHCALL 

DOBANKCALL 

DOPOSTJUMP 

DATACALL 

RE L TAB 11 

DSPOFF 

DSPSCAN 

DSPLAY 

DSPOVTEXIT 

TPAGREE 

TPA_PZO 

TPA_MZO 

TPA_P1 

TPA_P2 

MAXPOS 

TPA_MPAC1 

SHORTMP 

BANK4 

BANK 4 0_ 1 

BANK 7 

BANK 4 3_ 1 

CHECKTAB 

FCADRMM1 

NOV3 7MM 

CHARIN2 

_S9TEST 

ENDNMTST 

DECEND 

CRITCON 

INREL TAB 

NVCOM 

BOTHSGN 

P_ON 

SGNTAB 

CLEAR 

CLR5 

_5BLANK1 

BRNCHCON 

BANK4 0_2 

ENTER 

ENTEXIT 

SNTP AS 

REQADD 

NEG5 

LST2CON 

MIXNOUN 

REQDATX 

REQCOM 

PUT ADD 

GOALMCYC 

DSPAB 

DSPB 

DSP COM3 

NDOMPTST 

DCTSTCYC 

COMPICK 

DSPDCGET 

GTSFOUTL 

SFOVTABR 

SET AUG 

DEGTAB 

READLO 

ENDRDLO 

SECOS1 

MINC0N1 

SEPMIN 

DSPDPDEC 

ABCLOAD 

PUTXY 

CLOAD 

VBSP2LD 

GOQ 

SFRET1 

DISPLACE 

PUTDPCOM 

PVTC0M2 



003075 
003146 
003162 
003236 
003266 
003324 
003376 
003410 
003446 
003507 
003517 
003547 
003611 
003677 
003742 
004005 
004012 
004065 
004103 
004126 
004150 
004167 
004220 
004246 
004304 
004315 
004320 
004353 
010000 
012000 
016000 
020000 
010005 
010030 
010046 
012016 
012065 
012155 
012176 
012232 
012245 
012275 
012315 
012332 
012364 
012412 
012461 
012515 
012537 
012564 
014002 
000433 
014040 
014073 
014126 
014163 
014237 
014264 
014277 
014320 
014340 
014350 
014363 
014403 
014427 
014444 
014477 
014514 
014550 
014563 
012572 
012640 
012653 
012703 
016041 
016047 
016074 
012704 
014600 
014 64 6 
014707 
014734 
014761 
015002 
015022 
015065 
015111 



EX_SP_loopl 

EX_SP_done2 

EX_AJ_loopl 

EX_AJ_done2 

EX_IN_loop2 

EX_£indIns 

EX_FI_±nsRec 

EX_RM_loopl 

EX_RM_done2 

dumjob 

NOTACTLT 

DC_NOTBANK 

MYBANKCALL 

BANKJVMP 

DODATACALL 

DKTESTINIT 

T4PR0G 

TABLNTH 

DSPOUT 

CHRPRIO 

TPA_ SGNO 

TPA_PZOFIX 

TPA_MZOFIX 

TPA_M1 

TPA_M2 

MAXNEG 

TPA_FIXM 

DMP 

BANK04_1 

BANK 6 

BANK42_1 

V3 7 

AGAINMM 

PREMM1 

BANK04_2 

ELRC0DE1 

NVM 

ENDNUM 

PDECSGN 

DECON 

CCSHOLE 

NOUN 

PIXCLPAS 

SGNCOM 

SIGNTEST 

CLPASHI 

LEGALTST 

SINBLANK 

_2BLANK 

NVSVBR 

ENTPASHI 

MMADREF 

TESTVB 

USEADD 

INTMCTBS 

VBFANDIR 

DPTEST 

REQDATY 

ENDRQDAT 

UPDATVB 

GODSPALM 

DSP A 

DSPC 

COMPTEST 

DCOMPTST 

NOUNTEST 

GETCOMP 

DSPDCPUT 

DSPDCEND 

BANK41_2 

FIXRANGE 

ARTOVTSF 

READL01 

BANK 4 0_ 3 

SEC0N2 

HRC0N1 

ENDSPMIN 

ENDDPDEC 

PVTXYZ 

ALOAD 

LOADLV 

VBSP3LD 

SFRVTNOR 

SFCONOM 

CONUMNOR 

PVTNORM 

GTSFINLC 



003110 
003156 
003200 
003246 
003304 
003332 
003405 
003420 
003465 
003510 
003525 
003561 
003624 
003712 
003763 
004006 
004047 
004072 
004116 
004131 
004152 
004200 
004231 
004262 
004306 
004316 
004321 
004374 
010000 
014000 
016000 
010000 
010007 
010037 
010047 
012062 
012101 
012170 
012220 
012237 
012271 
012306 
012321 
012342 
012367 
012431 
012464 
012531 
012540 
014000 
014012 
014036 
014044 
014117 
014127 
014164 
014240 
014270 
014305 
014327 
014341 
014355 
014370 
014414 
014430 
014453 
014501 
014524 
014551 
014600 
012603 
012644 
012665 
012704 
016043 
016051 
016113 
012726 
014614 
014663 
014723 
014735 
014762 
015003 
015025 
015077 
015113 



EX_SP_donel 

FIND VAC 

EX_AJ_donel 

EX_initEX 

EX_IN_loop3 

EX_FI_loop 

EX_FI_done 

EX_RM_donel 

EX_RM_loop3 

dumjobl 

DXCHJVMP 

BANKCALL 

POSTJVMP 

DOBANKJVMP 

RELTAB 

DK_initDK 

DSPOUTSR 

_120MRUPT 

NODSPOUT 

KEYPROG 

TPA_P0 

TPA_M0 

TPA_ SGN1 

TPA_ SGN2 

TPA_P3 

TPA_MPACO 

TPA_FIXP 

BANKFF_ 1 

BANK5 

BANK41_1 

BANK1 

V3 7BAD 

V3 7N0N0 

EPREMM1 

CHARIN 

ENTERJMP 

DECTOBIN 

ENDALL 

MORNUM 

GET INREL 

VERB 

NEGSGN 

POSGN 

M_ON 

SGNTST1 

CLEAR 1 

_5BLANK 

DOUBLK 

BLANKCON 

L0ADLV1 

ACCEPTHD 

LOWVERB 

TES TNN 

LODNNLOC 

VERBFAN 

VERBTAB 

DPTEST1 

REQDATZ 

UPDATNN 

UPDAT1 

DSP ABC 

DSPC0M1 

DSPC0M2 

C0MPTST1 

DECTEST 

TSTFORDP 

DECDSP 

DSPSFNOR 

DECDSP3 

DEGOUTSF 

DEGCOM 

SCOVTEND 

RDLONOR 

HMSOUT 

MINC0N2 

SEPSECNR 

BANK 4 2_ 2 

BANK 4 0_ 4 

ABLOAD 

BLOAD 

VBSP1LD 

ALLDC_OC 

SFRVTMIX 

SFRET 

PVTCOM 

PVTN0RM_1 

PVTDECSF 



003127 
003161 
003217 
003252 
003307 
003347 
003405 
003437 
003472 
003514 
003526 
003565 
003653 
003733 
003772 
004007 
004057 
004074 
004126 
004132 
004157 
004210 
004241 
004277 
004310 
004317 
004337 
004435 
012000 
014000 
020000 
010002 
010026 
010046 
012000 
012063 
012137 
012174 
012227 
012241 
012272 
012312 
012326 
012353 
012404 
012454 
012473 
012534 
012563 
014001 
014032 
014037 
014054 
014124 
014151 
014167 
014262 
014274 
014307 
014335 
014343 
014361 
014375 
014417 
014435 
014462 
014510 
014546 
014560 
012564 
012616 
012651 
012701 
016000 
016045 
016053 
016114 
012727 
014635 
014673 
014733 
014736 
014770 
015020 
015031 
015111 
015114 



PUTSFNOR 

BANK 4 1_ 3 

SIGNFIX 

SGNT01 

ARTHINSF 

_2RNDEND 

BANK 4 2_ 3 

BIT15_14 

KILLMON 

ENDMONDO 

MONBVSY 

PASTEVB 

MID 7 

ENDSPF 

DSPRND 

DSPDCWD1 

DECROUND 

DSP2DEC 

VNDSPCON 

DSPOCTHD 

DSPLW 

BANK 4 1_ 6 

DFRNT 

_11DSPIN 

PREDSPAL 

MONADR 

ALMCYCLE 

MMCHANG 

VBRQEXEC 

SETVAC 

BANK 4 1_ 7 

VBRESEQ 

UNSUSPEN 

NVMONOP T 

NVSRRBNK 

BLANKDSP 

NVSVB1 

ENDNVSB1 

ENDIDLE 

ISLIST_PO 

BSUB1ADDR 

DSPMM 

BLNKSUB1 

RECALTST 

RECAL3 

BANK40_Sa 

SETEBANK 

R3D1 

SLEFT5 

HI5 

TCFINDVAC 

LOWS 

ND1 

0UT1 

FALTOF 

RELDSPOR 

DOSHRTMP 

FLSHTAB 

NVSUBSY1 

RELDSP 

NEHMODEA 

PINBRNCH 

TSTLTS1 

TSTC0N1 

TSTLTS3 

TSTAB 

ERCOM 

BANK 4 0_ 10 

LODNLV 

SFCOM 

NNTYPTAB 

IDADDTAB 

GOEXTVB 

GOP IN 

POO 

priol 

restart laddr 

P01_restart 

tcadr2 

P02_wait 

nvcode3 

P03 

P03_yield 

nvcode4 

monoption 

P7S 

Q 



015125 
015146 
012750 
012766 
012776 
013024 
016114 
015155 
015232 
015273 
015276 
004435 
004473 
015307 
013046 
013071 
013117 
013131 
013155 
015310 
015341 
015356 
013226 
013253 
013265 
013313 
004474 
015356 
015420 
015444 
015453 
013325 
013342 
004507 
004531 
015453 
015505 
015571 
004541 
004560 
004612 
010047 
013350 
013413 
013444 
013452 
004633 
004637 
004656 
004666 
004671 
004673 
004676 
000011 
004706 
004720 
004754 
005000 
013452 
005003 
005036 
005067 
015600 
015623 
015631 
013467 
013505 
013521 
016156 
016173 
016354 
016640 
020000 
020077 
022000 
022011 
022020 
022024 
022035 
022047 
022063 
022066 
022107 
022123 
022126 
022142 
000001 



PVTDCSF2 

DEGINSF 

ENDSCALE 

DEGC0N1 

BINROUND 

TESTOFUF 

MONITOR 

M0NIT2 

MONDEL 

MONREF 

LODSAMPT 

PASTEOPT 

BANKFF_2 

BANK41_5 

DPOSMAX 

TRACE1 

DSPDECNR 

END2DEC 

GOVNUPDT 

WD AGAIN 

DSPMSK 

DSP IN 

DSLV 

DSPOCTIN 

DSPALARM 

NVSBENDL 

ENDALM 

MODROVTR 

REQEX1 

VBRQWAIT 

VBPROC 

VBRELDSP 

BANK 4 0_ 8 

NVSBCOM 

NVSUBEND 

INCR_NOUT_RET 

ENTSET 

BANK41_8 

END INST 

DSP ABORT 

BS_SUPDXCHZ 

ENDSPMM 

TESTBIT 

RECAL1 

DOTERM 

SETNCADR 

R1D1 

RIGHT5 

L0W5 

TCNOVAC 

L0W11 

LOW10 

MD1 

DSALMOUT 

FALTOR 

TPSL1 

FLASHON 

NVSVBVSY 

ENDNVBSY 

RELDSP2 

POODOO 

BANKFF_ 6 

FVLLDSP 

SHOLTS 

BANK41_9 

ERMINVS 

N0TBIT12 

LODNNTAB 

MIXCON 

GTSFIN 

SFINTAB 

RVTMXTAB 

LST2FAN 

BANK 4 3_ 2 

timel 

jobl 

tcadrl 

nvcode2 

P02 

P02_pwd 

restart3_addr 

P03_restart 

P03_pwd 

restart 4_addr 

P04 

P79 

QRUPT 



015126 
012727 
012762 
012772 
013011 
013025 
015146 
015164 
015236 
015274 
015300 
004451 
004474 
015310 
013062 
013074 
013120 
013143 
013156 
015317 
002057 
013161 
013245 
013261 
013267 
013314 
004502 
010000 
015425 
015446 
013315 
013327 
013350 
004516 
004532 
015463 
015542 
015572 
004553 
004563 
004613 
010056 
013373 
013416 
013446 
004616 
004635 
004640 
004664 
004667 
004672 
004674 
004677 
000011 
004712 
004721 
004760 
005001 
013461 
005017 
005050 
005070 
015621 
015624 
015644 
013477 
013517 
016114 
016161 
016176 
016520 
017124 
020002 
020101 
022004 
022012 
022021 
022033 
022036 
022055 
022064 
022070 
022115 
022124 
022127 
022147 
000027 



SFINTABR 

DEGINSF2 

NEG18 

DEGC0N2 

_2R0VND 

BANK 4 0_ 5 

M0NIT1 

MONREQ 

MONDO 

MONBACK 

BANK41_4 

ENDPASTE 

DSPFMEM 

DSPSIGN 

DSPDECWD 

TRACE1S 

DSPDC2NR 

DSPDECVN 

BANK 4 0_ 6 

OCTBACK 

DSP2BIT 

DSPIN1 

DSMSK 

ENDSPOCT 

CHARALRM 

BANK 4 0_ 7 

BANKFF_3 

REQMM 

REQVESTC 

ENDRQWT 

VBTERM 

TSTLTS4 

NVSUB 

NVSVBCOM 

BANKFF_ 4 

INCR_NOOT 

NVSVB2 

KILMONON 

ISCADR_PO 

BLANKSUB 

BANKFF_5 

BANK04_3 

DSPMM JB 

RECAL2 

DOPROC 

SETNADD 

R2D1 

LEFT5 

MID 5 

TCWAIT 

B12M1 

VD1 

BINCON 

F ALTON 

RELDSPON 

PRSHRTMP 

FLASHOFF 

BANKFF_5a 

BANK 4 0_ 9 

RELDSP1 

NOTPALT 

VBTSTLTS 

FVLLDSP1 

TSTLTS2 

ERROR 

ERPLUS 

ERCON 

LODMI XNN 

GTSFOUT 

NN AD TAB 

SFOVTAB 

BANK 4 2_ 4 

ALM_END 

BANK1 1 

taskl 

nvcodel 

P01 

restart2_addr 

P02_restart 

P02_ter 

tcadr3 

P03_wait 

P03_ter 

t cadr4 

P04_restart 

ARUPT 

TIME1 



015131 
012740 
012764 
012774 
013014 
013031 
015150 
015215 
015237 
015275 
015301 
004472 
015301 
013031 
013064 
013105 
013124 
013144 
013161 
015337 
015344 
013206 
013247 
013264 
013307 
013315 
004503 
015404 
015431 
015452 
013323 
013334 
004503 
004524 
004536 
015501 
015543 
004536 
004554 
004565 
004616 
010057 
013400 
013427 
013450 
004625 
004636 
004647 
004665 
004670 
004672 
004675 
004700 
004701 
004713 
004740 
004770 
005003 
013462 
005026 
005066 
015572 
015622 
015625 
013462 
013502 
013520 
016135 
016162 
016210 
016570 
017220 
020076 
022000 
022005 
022017 
022022 
022034 
022040 
022060 
022065 
022077 
022120 
022125 
022131 
000026 
000036 



TIME2 000035 BANK 000015 A 000000 

TIME4 000040 OVTO 000010 ISO 000004 

LP 000003 OVCTR 000034 CYL 000022 

SR 000021 CYR 000020 



